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GETTING THINGS 
IN PERSPECTIVE 



THE EFFECT OF VIEWPOINT 



BEFORE YOU START 



THE TRANSFORMATIONS 



SETTING INITIAL VARIABLES 
CALLING THE ROUTINE 



Impressive! That's the only way to 
describe the manipulative power of 
this program— the third in the series 
on wireframe graphics, that adds 
perspective and viewpoint 

The wireframe drawing program given in the 
last two articles allows you to draw a cube in 
three dimensions and change its size. But it 
presents you with the same viewpoint every 
time; the front face of the cube is always 
facing the front, and although you can see 
through the wire frame, there's no way to 
view it from the top, side or anywhere else you 
fancy. This article gives you extra routines 
that allow you to specify the position of your 
eye so you can look at the cube from any 
direction. 

This is a very useful facility, especially 
when you come to draw more complicated 
objects, as the view from different directions 
may reveal hidden or obscured features. Also, 
by specifying a succession of different coordin- 
ates for the position of your eye, you can get 
an impression of 'flying by' the object, or 
walking round it. However, the sequence of 
drawings possible on a home computer is very 
slow and the effect doesn't match the speed- 
of commercial wireframe drawings 
where the viewer seems to zoom round 
the car, planet or whatever at great 
speed. But the principles are 
the same. \ 



THE EFFECT OF VIEWPOINT 



On page 560, we showed how it is possible to 
depict a three-dimensional object on a two- 
dimensional screen by using a visual conven- 
tion which can be interpreted by the eye and 
brain of the viewer. The previous programs 
did this by using an isometric projection, in 
which slanting lines are understood to be 
receding or advancing from the screen. 

The more common form of visual conven- 
tion is perspective drawing, in which 
lines that would move away from 
the viewer con- 
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^ verge towards 

y a point in the distance, 
\ known as a vanishing 

\ point, and are foreshortened as they 
get 'further away'. Fn true three- 
point perspective, there are actually 
three vanishing points — one for lines 
drawn along each of the three axes. The 
position of the three points is fixed by the 
relationship between the position of the 
viewer and the position of the object to be 
depicted. (But remember, these points are 
imaginary within the visual convention.) 

This gives a clue as to how an object like a 
cube can be depicted from different view- 
points in three-dimensional space. It will be 
necessary to set up further transformations 
which produce the effect of convergence 
towards a vanishing point, and also fore- 
shorten the object. 

The first thing you will need to know is the 
relationship between the position of the 
viewer and that of the object. To determine 
this, you have to relate the viewpoint to the X, 
Y and Z axes which you have set up on the 
screen. The programs which follow do just 
that, and then perform the necessary 
transformations. 



Timnm 



BEFORE YOU START 



To RUN the new sections of program listed 
here you need the Grid routine given on page 
512 and the Acorns need the Line routine too 
(page 511). So, if you SAVEd a copy of those 
routines you should LOAD them in now. It's a 
good idea to LOAD in the Circle drawing 
routine on page 513 as well. You won't need it 
this time but it is handy to have all the 
routines together ready for the globe drawing 
program which follows in the next article. So 
the lines you need are 5000 to 6160 (and 9500 
to 9550 for the Acorn as well); all other lines 
can be deleted. 

As before, you'll have to type in several 
sections of program before you can RUN 
anything — because the eye position as well as 
the transformations for rotation and perspec- 
tive have to be set up first. 



DEFINING YOUR VIEWPOINT 



The first section of program calculates the 
variables needed to determine the position of 
your eye in three-dimensional space: 



LETXV = X: LET YV = Y: LETZV = Z 

8010 LET WV = YV"YV + ZV*ZV 

8020 LET PV = SQR(XV*XV + WV) 

8030 IF PV = THEN RETURN 

8035 LETWV = SQR WV 

8040 LET XU=XV/PV 

8050 LET YU=YV/PV 

8060 LET ZU = ZV/PV 

8070 LET WU = WV/PV 

8080 REM EYE-ORIENTATION 

8090 LET A = XV*YV: LET B = ZV: GOSUB 

8450: LET G = H 
8100 LETA = YV: LETB = XV: GOSUB 8450: 

LETG = G + H 
8110 LET SG = SIN G 

To represent a three-dimensional im- 
age coordinates are transformed from 
three-dimensional axes (X1, Y1, Z1) and 
(Xv, Yv, Zv) to the screen axes (X,Y) 



A distant viewpoint gives only slight 
perspective effect, whereas a close 
viewpoint (right) distorts the image 




8120 LETCG = C0S G 

8140 LET R1=WU'CG 

8150 LET R2=-WU*SG 

8160 LET R3= -XU 

8170 LET R4= — YU 

8180 LET R5=-ZU 

81 90 LET R6 = XV'XU + YVYU + ZV7U 

8200 IF WU = THEN GOTO 8350 

8210 LET XT = XVWU- (YVYU 

+ ZV*ZU)'XU/WU 
8220 LETYT = (YV'ZU-ZV*YU)/WU 
8230 LET R7 = (ZU*SG-XU'YU"CG)/WU 
8240 LET R8 = ( - YU'SG -XU'ZU'CGJ/WU 
8250 LET R9 = CG*XT + SG , YT 
8260 LET SI = (ZU'CG + XU'YU"SG)/WU 



8270 LET S2 = 

8280 LET S3 = 

8330 RETURN 

8350 LET R7 = 

8360 LET R8 = 

8370 LET R9 = 

8380 LET S1=0 

8390 LET S2 = 1 

8400 LET S3 = 

8410 RETURN 

8450 IF BO0THEN LET H 

RETURN 
8460 LET H = PI/2: RETURN 



-YU*CG + XU*ZU*SG)/WU 
-SG*XT + CG*YT 
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= ATN (A/B): 
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8010 
8020 
8030 
8035 
8040 
8050 



8070 



8090 
G 

8100 
G 



XV = X:YV = Y:ZV = Z 

WV = YV'YV + ZV*ZV 

PV = SQR(XV*XV + WV) 

IF PV = THEN RETURN 

WV = SQR(WV) 

XU=XV/PV 

YU=YV/PV 

ZU = ZV/PV 

WU = WV/PV 

REM EYE-ORIENTATION 

A = XV'YV:B = ZV:GOSUB8450: 

= H 

A = YV:B = XV:GOSUB8450: 

= G + H 



81 10 SG = SIN<G) 

8120 CG = COS(G) 

8130 REM ROTATION MATRIX 

8H0R1=WU*CG 

8150R2=-WU*SG 

8160 R3= — XU 

8170R4=-YU 

8180 R5= ZU 

81 90 R6 = XVXU + YVYU + ZVZU 

8200 IF WU = THEN 8340 

8210 XT=XVWU-(YVYU + ZVZU) 

*XU/WU 
8220 YT=(YV*ZU-ZV*YU)/WU 
8230 R7 = (ZU'SG - XU*YU*CG)/WU 
8240 R8 = (-YU*SG-XU7U*CG)/WU 
8250R9 = CG , XT+SG*YT 
8260 SI = (ZU'CG + XU*YU*SG)/WU 
8270 S2 = ( - YU'CG + XU'ZU*SG)/WU 
8280S3=-SG*XT + CG*YT 
8330 RETURN 

8340 REM SPECIAL CASE ON X-AXIS 
8350 R7 = - 1 
8360 R8 = 
8370 R9 = 
8380 SI =0 
8390 S2 = 1 
8400 S3 = 
8410 RETURN 
8450 IF B <>0 THEN H = ATN(A/B): 

RETURN 
8460H = 7r/2:RETURN 



8000 DEF PROCposition(X ) Y,Z) 

8010 LOCAL WV,WU,G,SG,CG,XT,YT 

8020 XV =X 

8030 YV = Y 

8040 ZV = Z 

8050WV = YVYV + ZVZV 

8060PV = SQR(XVXV + WV) 

8070WV = SQR(WV} 

8080 IF PV = THEN ENDPROC 

8090XU = XV/PV 

8100YU = YV/PV 

8110ZU^ZV/PV 

8120WU = WV/PV 

8130 REM EYE ORIENTATION 

8140G = FNatan(XVYV,ZV) 

+ FNatan(YV,XV) 
8150 SG = SIN(G) 
8160CG = COS(G) 
8170 REM ROTATION MATRIX 
8180R11=WU*CG 
8190R21 = -WU*SG 
8200 R31 = - XU 
8210 R32= -YU 
8220 R33= -ZU 

8230 R34 = XVXU + YV YU + ZVZU 
8240 IF WU = THEN 8340 
8250 XT = XV WU - (YV YU + ZVZU) 

'XU/WU 



In a three point perspective system, a 

viewpoint is taken along each of the 

three axes — X, Y and Z. This enables any 

image to be represented as the eye 

would see the object 




8260 YT=(YVZU-ZVYU)/WU 

8270 R12 = (ZU*SG-XU*YU"CG)/WU 

8280 R13 = (-YU*SG-XU*ZU-CG}/WU 

8290R14 = CG"XT + SG*YT 

8300 R22 = (ZU'CG + XU'YU*SG)/WU 

8310 R23 = ( -YU'CG + XU*ZU*SG)/WU 

8320R24=-SG*XT + CG"YT 

8330 ENDPROC 

8340 REM SPECIAL CASE ON X-AXIS 

8350R12=-1 

8360R13 = 

8370R14 = 

8380R22 = 

8390 R23 = 1 

8400R24=0 

8410 ENDPROC 

8450 DEF FNatan{A,B) 

8460 IF B<>0 THEN =ATN(A/B) ELSE= PI/2 



lTHT 



Key in Lines 8000 to 8410 as for the 
Commodores, then add the following lines: 



8450 IF B<>0 THEN H 

H = PI/2 
8460 RETURN 



= ATN(A/B) ELSE 



To understand what's going on you have to 
remember that the Z axis is the one coming 
towards you out of the centre of the screen, 
the Y axis points up the screen, and the X axis 
points along the screen. 

The position of the eye is at (XV, YV, ZV); 
the V stands for Viewpoint. The variable WV 



gives the distance in the Y and Z directions 
combined. The position of the object you're 
looking at is assumed to be the origin (0, 0, 0) 
in space which is placed at the centre of the 
screen for simplicity. Line 8030 (8080 for 
Acorn) causes the routine to abort if the eye 
position is placed at the origin, because it is 
difficult to look at your own eye — without a 
mirror. The variables XU, YU and ZU are the 
distances in the X, Y and Z axis directions of a 
line of unit length drawn between the origin 
and the eye position. WU is the distance in the 
Y and Z directions combined. 

When viewing an object, you can get 
different views by moving around the object 
from left or right. This angle is measured 
starting from the X axis and is set at Line 8090 
(8140 for Acorn) and 8100. A check is made 
(Lines 8450 and 8460) to prevent division by 
zero, which would interrupt the program by 
causing an error message. 

This gives a normal view when you are 
looking directly along the X axis and it 
gradually rotates round as you move round, 
giving more interesting views. Lines 8140 to 
8280 (8180 to 8320 for Acorns) set variables 
that define the orientation of the eye position 
in space. The eye position is located so that its 
Z axis lies along the line from the eye to the 
origin of the screen. 

The rest of the routine sets variables for the 
special case, when the eye position is actually 
on the X axis. 



THE TRANSFORMATIONS 



The next section transforms the X, Y and Z 
coordinates of the cube to the final screen 
coordinates. These transformations take into 
account the position of the eye and the effect 
of perspective: 



8500 LET X1=T1*X + T4*Y+T7 
8510 LET Y1=T2*X + T5*Y+T8 
8520 LET Z1=T3'X + T6-Y + T9 
8540 LET X2 = R1"X1+R7'Y1 

+ R871+R9 
8550 LET Y2 = R2*X1+S1*Y1 

+ S2*Z1+S3 
8560 LET Z2 = R3*X1 + R4*Y1 

+ R571 + R6 
8575 IF Z2<ZN THEN RETURN 
8580 LET X3=D*X2/Z2 
8590 LET Y3=-D*Y2/Z2 
8600 RETURN 

8500X1=TrX + T4*Y+T7 

8510Y1=T2"X + T5'Y + T8 

8520Z1=T3*X+T6*Y+T9 

8530 REM 2-D TO 3-D 

8540 X2 = R1 *X1 + R7*Y1 + R871 + R9 

8550 Y2 = R2*X1 + SI "Y1 + S2*Z1 + S3 

8560 Z2 = R3'X1 + R4*Y1 + R5*Z1 + R6 

8570 REM OBJECT TO EYE 

8575 IF Z2<ZN THEN RETURN 

8580X3 = D'X2/Z2 

8590Y3 = D"Y2/Z2 

8600 RETURN 



8500 DEF FNtrans(X,Y) 
8510 LOCAL X1,Y1,Z1,X2,Y2,Z2 
8520 REM 2-D TO 3-D 
8530X1=T11*X+T12*Y+T13 
8540Y1=T21*X + T22*Y+T23 
8550 Z1 = T31 *X + T32'Y + T33 
8560 REM OBJECT TO EYE 
8570X2 = R11*X1+R12*Y1 

+ R13*Z1+R14 
8580Y2 = R21"X1+R22*Y1 

+ R23*Z1 + R24 
8590Z2 = R31*X1 + R32'Y1 

+ R3371 + R34 
8600 IF Z2<ZMIN THEN = FALSE 
8610 REM 3-D TO 2-D 
8620X3 = D*X2/Z2 
8630 Y3 = D"Y2/Z2 
8640 =TRUE 

This routine uses complicated matrix arith- 
metic to transform the coordinates (X,Y), but 
basically they are the transformation steps 
described on pages 561 to 564. Lines 8500 to 



8520 (8530 to 8550 for Acorn) transform the 
2-D plotting plane (X,Y) to 3-D space (X1 , Y1 , 
Z1). Lines 8540 to 8560 (8570 to 8590 for 
Acorn) transform the 3-D space coordinates 
(X1 , Y1 j Z1 ) to be positioned according to the 
eye position and direction (X2, Y2, Z2). Line 
8575 (8600 for Acorn) checks whether the 
new position to be plotted is too close to the 
eye position — that is, Z2 lies between and ZN 
(or and ZM IN on the Acorns), or whether it is 
behind the eye (Z2 negative). In both these 
cases, the plotting position is ignored as it 
would be impossible to view the object. If the 
position is farther away than ZN or ZMIN from 
the front of the eye position, then the screen 
coordinate position (X3, Y3) is calculated — at 
the end of the routine. The D/Z2 parameter on 
these lines adds perspective to the picture by 
projecting the object on to a flat screen at a set 
distance D from the eye. If you set D to a small 
value this has the effect of moving the screen 
close to the eye so the perspective is more 
pronounced. When D is large, the screen is a 
long way off, so the perspective effect is quite 
small — the image appears virtually undistor- 
ted, even when it is viewed obliquely in any 
direction. 



SETTING INITIAL VARIABLES 



The next step is to rewrite the Initialize and 
Draw routines to make use of the new 
Transform routines: 



9000 CLS 

9020 LET XM = 256: LET YM = 176 
9030 LET XD = XM/2: LET YD = YM/2 
9040 LET ZN = 1 
9042 INPUT "ENTER PROJECTION PLANE 

DISTANCE",D 
9045 IF D< =0 THEN LETD = 10007N 
9050 LET T1 = 1 : LET T2 = 0: LET T3 = 
9060 LETT4 = 0: LET T5 = 1 : LETT6 = 
9070 LET T7 = 0: LET T8 = 0: LET T9 = 
9090 CLS : RETURN 
9500 LET X = XS: LET Y = YS: 

GOSUB8500: IF Z2<ZN THEN 

GOTO 9520 
9505 IF X3< -127 OR Y3< -87 OR 

X3>128 0RY3>88THEN 

GOTO 9550 
9510 PLOT 1 27 + X3.87 + Y3 
9520 LET X = XE: LETY=YE: 

GOSUB8500: IF Z2<Zn THEN 

GOTO 9550 
9525 IF X3< -127 OR Y3 < —87 OR 

X3>128 0RY3>88THEN 

GOTO 9550 
9530 DRAW 1 27 + X3 - PEEK 23677, 

87 + Y3- PEEK 23678 
9550 RETURN 
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9000 PRINT "□" 

9020 XM = 320:YM = 200 

9030 XD = XM/2:YD = YM/2 

9040 ZN = 1 

9042 INPUT "ENTER PROJECTION PLANE 

DISTANCE";D 
9045 IF D=<0 THEN D = 1000*ZN 
9050T1 =0:T2 = 0:T3 = 
9060T4 = 0:T5 = 0:T6 = 
9070T7 = 0:T8 = 0:T9 = 
9085 PRINT "□" 
9090 RETURN 
9500 X = XS:Y = YS:GOSUB 8500: 

IF Z2<ZN THEN 9520 
9505 IF X3< -1590RY3< -990RX3 

>1590RY3> 99 THEN 9550 
9510IX = INT(160 + X3): 

IY = (100-Y3) 




9520 X = XE:Y = YE:GOSUB 8500: 

IF Z2<ZN THEN 9550 
9525 IF X3< -1590RY3< -990RX3 

>1590RY3> 99 THEN 9550 
9540 LINE IX,IY,1 60 + X3, 

100 — Y3,1 
9550 RETURN 



9000 SCNCLR 

9020 XM = 1023:YM = 1023 

9030XD = XM/2:YD = YM/2 

9040 ZN = 1 

9042 PRINT "QENTER PROJECTION 

PLANE DISTANCE":INPUTD 
9045 IF D= <0 THEN D = 

1000*ZN 
9050T1=0:T2 = 0:T3 = 
9060T4 = 0:T5 = 0:T6 = 



9070T7 = 0:T8 = 0:T9 = 

9085 PRINT "□" 

9090 RETURN 

9500 X = XS:Y = YS:GOSUB 8500: 

IF Z2<ZN THEN 9520 
9505 IFX3< -5110RY3< -5110RX3 

>5110RY3>511 THEN 9550 
9510 POINT 2,INT(511+X3), 

INT(511-Y3) 
9520 X = XE:Y = YE:GOSUB 8500: 

IF Z2<ZN THEN 9550 
9525 IFX3< — 51 1 0RY3 < 51 1 0RX3 

>5110RY3>511 THEN 9550 
9530 DRAW 2 TO 511 +X3,511 — Y3 
9550 RETURN 



9000 DEF PROCINIT 
9010CLS:CLG 



9020 XM AX = 1 280:YMAX = 1 024 

9030 XM1D = XMAX/2:YMID = YMAX/2 

9035 VDU29,XMID;YMID; 

9040 ZMIN = 1 

9042 INPUT"ENTER PROJECTION PLANE 

DISTANCED ",D 
9045 IF D<=0 THEN D = 1000*ZMIN 
9050 PROCXvector(1>0,0) 
9060PROCYvector(0 5 1,0) 
9070 PROCorigin(0,0,0) 
9085 CLS 
9090 ENDPROC 
9100 DEF PROCMOVE{X,Y) 
9120 IF FNtrans(XJ) THEN MOVE X3,Y3 
9130 ENDPROC 
9200 DEF PROCDRAW(X,Y) 
9220 IF FNtrans(X,Y) THEN 

DRAW X3,Y3 
9230 ENDPROC 



60S 



UAT 




9000 PCLS 

9020 XM = 256:YM = 192 

9030XD = XM/2:YD = YM/2 

9040 ZN = 1 

9042 CLS:INPUT"D ENTER PROJECTION 

PLANE DISTANCED ";D 
9045 IF D=<0 THEN D = 1000*ZN 









9050T1=1:T2 = 0:T3 = 

9060T4 = 0:T5 = 1:T6 = 

9070T7 = 0:T8 = 0:T9 = 

9085 CLS 

9090 RETURN 

9500 X = XS:Y = YS:GOSUB8500: 

IFZ2<ZN THEN 9520 
9505IFX3<-127ORY3<-96ORX3 

>1280RY3>95THEN 9550 
9510 DRAW"BM" + STR$(INT(127 

+ X3)) + "," + STR$(INT(95-Y3)) 
9520X = XE:Y = YE:GOSUB8500: 

IF Z2<ZN THEN 9550 
9525IFX3<-1270RY3<-96ORX3 

>1280RY3> 95 THEN 9550 
9530 LI N E - ( 1 27 + X3,95 - Y3) , PSET 
9550 RETURN 

Line 9020 sets the maximum dimensions of 
the screen in the X and Y directions, and Line 
9030 sets the mid point. Line 9040 sets the 
closest allowable position of points to be 
plotted to the eye position. The variable D 
gives the actual distance from the eye position 
to the projection plane — the screen — and de- 
termines the perspective. Values of D are 
entered when you RUN the program, so you 
can vary the degree of perspective. If no value 
is given— by pressing ENTER or |fiETURN| — 
then Line 9045 sets a default value of 1 000. 
Lines 9050 to 9070 pass values to the trans- 
formation constants, to specify the plane in 
which the image is to be drawn in three- 
dimensional space. 

The section of program above continues 
with the revised drawing routine. For Acorn 
micros, Line 9120 MOVEs the cursor to the 
required screen position, and Line 9220 
DRAWs to a new position. For the other 
computers, however, variables for the trans- 
formation constants are first set (Line 9500), 
then a check is made (Lines 9505 and 9525) to 
determine whether a new point to be plotted 
(Lines 9510 and 9530) is on the screen. This 
check is necessary to prevent an error message 
if you try to plot off the screen. 



CALLING THE ROUTINE 



You now need the routine to draw the grid. If 
you do not have a typed copy of the program 
from the previous article, then enter those 
program lines now, as well as this program. 



110 GOSUB 9000 

120LETL = 20: LET N = 3 

125 GOSUB 505: GOTO 140 

130 GOSUB 500 

140 IFX = 0AND Y = 0ANDZ = 0THEN 

GOTO 170 
150 GOSUB 1000 
160 GOTO 130 
170 CLS 
180 STOP 

500 IF INKEY$ = "" THEN GOTO 500 
505 CLS 
510 INPUT "INPUT EYE POSITION 

(X,Y,Z)",X,Y,Z 
520 GOSUB 8000 
530 RETURN 
1000 LET P = L/2 

1010 LETT1 = 1: LET T2 = 0: LET T3 = 
1020 LET T4=0: LET T5 = 1: LET T6 = 
1 030 LET T7 = - P: LET T8= - P: LET 

T9=M^tt 
1040 GOSUB 1200: REM BOTTOM 
1 050 LET^nFj^tfiLiaftJ'- P: 

1060 GOSUB 1200: REM TOP 

1070 LET T4 = 0: LET T5 = 0: LETT6=-1 

1080 GOSUB 1200: REM LEFT 

1090 LET T7= - P: LET T8 = P: LET T9 = P 

1100 GOSUB 1200: REM RIGHT 

1110LETT1=0:LETT2 = -1:LETT3 = 

1120 GOSUB 1200: REM BACK 

1130 LET T7 = P: LETT8 = P: LET T9 = P 

1140 GOSUB 1200: REM FRONT 

1170 RETURN 

1 200 LET XA = 0: LET YA = 0: LET LW = L: 

LETLH = L:LETNX=N: LETNY=N 
1210 GOSUB 5000 
1220 RETURN 



100PI = rc 

110 GOSUB 9000 

120L = 100:N = 3 

125 GOSUB 505:GOTO 140 

130 GOSUB 500 

140 IF X = 0ANDY = 0ANDZ = 0THEN170 

150GOSUB1000 

160 GOTO 130 

170NRM:PRINT"n":END 

500 IF PEEK(197) =64 THEN 500 

505 NRM 

510 INPUT"QINPUT EYE POSITION 

(X,Y,Z)";X,Y,Z 
520 GOSUB 8000 
530 HIRES 0,1 
540 RETURN 
1000 P = L/2 

1010T1 =1;T2 = 0:T3 = 
1 020 T4 = 0:T5 = 1 :T6 = 



1030T7=-P:T8=-P:T9=-P 

1040 GOSUB 1200 

1050T7=-P:T8=-P:T9 = P 

1060 GOSUB 1200 

1 070 T4 = 0:T5 = 0:T6 = - 1 

1080 GOSUB 1200 

1090T7=-P:T8 = P:T9=P 

1100 GOSUB 1200 

1110T1 =0:T2= — 1:T3 = 

1120 GOSUB 1200 

1130T7 = P:T8 = P:T9 = P 

1140 GOSUB 1200 

1170 RETURN 

1200XA = 0:YA = 0:LW = L:LH = L: 

NX = N:NY = N 
1210 GOSUB 5000 
1220 RETURN 



100PI = 7T 

110 GOSUB 9000 

120L = 100:N = 3 

125 GOSUB 505:GOTO 140 

130 GOSUB 500 

140IFX = 0ANDY = 0ANDZ = 0THEN170 

150GOSUB1000 

160 GOTO 130 

170 GRAPHIC 0:PRINT"[J":END 

500 IF PEEK{197) = 64 THEN 500 

505 GRAPHIC 

510 PRINT"QINPUT EYE POSITION": 

INPUT"(X,Y,Z)";X,Y,Z 
520 GOSUB 8000 
530 GRAPHIC 2 
540 RETURN 
1000P = L/2 
1010T1=1:T2 = 0:T3 = 
1 020 T4 = 0:T5 = 1 :T6 = 
1030T7=-P:T8=-P:T9=-P 
1040 GOSUB 1200 
1 050 T7 = - P:T8 = — P:T9 = P 
1060 GOSUB 1200 
1070T4 = 0:T5 = 0:T6=-1 
1080 GOSUB 1200 
1 090 T7 = — P:T8 = P:T9 = P 
1100 GOSUB 1200 
1110T1=0:T2=-1:T3 = 
1120 GOSUB 1200 
1130T7 = P:T8 = P:T9 = P 
1140 GOSUB 1200 
1170 RETURN 
1200XA = 0:YA = 0:LW = L:LH = L: 

NX = N:NY = N 
1210GOSUB5000 
1220 RETURN 



100MODE0 
110 PHOCINIT 

120 L = 100:N = 5 

130 REPEAT 




140 V=FNgetposition 
150 IF VTHEN PROCCUBE 

160 UNTIL NOT V 

170 MODE1 

180 END 

500 DEF FNgetposition 

510 INPUT'EYE POSITION {X,Y,Z)D", 

X,Y,Z 
520 PROCposition(X,Y,Z) 
530 CLS 

540 ={X< >0)OR(Y<>0)OR(Z< >0) 
1000 DEF PROCCUBE 
1010 LOCAL P 
1020P = L/2 
1030 PROCXvector(1, 0,0} 
1040PROCYvector(0,1,0} 
1 050 PROCoriginf — P, — P, — P) 
1060 PROCSIDE:REM BOTTOM 
1070PROCorigin(-P,-P,P) 
1080 PROCSIDE:REM TOP 
1090PROCYvector(0,0,-1) 
1100 PROCSIDE:REM LEFT 
1110PROCorigin(-P,P,P) 
1120 PROCSIDE:REM RIGHT 
1130 PROCXvector(0,- 1,0) 
1140PROCSIDE:REM BACK 
1150PROCorigin(P,P,P) 
1160 PROCSIDE:REM FRONT 
1170 ENDPROC 
1200 DEF PROCSIDE 
1210PROCGRID(0,0,L,L,N,N) 
1220 ENDPROC 

9600 DEF PROCXvector(DX,DY,DZ) 
961 T1 1 = DX 
9620 T21 = DY 
9630 T31 = DZ 
9640 ENDPROC 

9700 DEF PROCYvector(DX,DY,DZ) 
9710T12 = DX 
9720 T22 = DY 
9730T32 = DZ 
9740 ENDPROC 
9800 DEF PROCorigin(X,Y,Z) 
981 T1 3 = X 
9820T23 = Y 
9830 T33 = Z 
9840 ENDPROC 



ssu 



100PI = 4"ATN(1):PMODE4,1 

110GOSUB 9000 

120L = 20:N = 5 

125GOSUB505:GOTO140 

130GOSUB500 

140IFX = 0ANDY = 0ANDZ = 

THEN170 
150 GOSUB 1000 
160 GOTO 130 
170 CLS 
180 END 
500 IF 1NKEY$ = "" THEN 500 



505 CLS 

510 INPUT"DINPUT EYE POSITION 

(x,Y,z)nnn";x,Y,z 

520 GOSUB8000 

530PCLS:SCREEN1,1 

540 RETURN 

1000P=L/2 

1010 T1 =1:T2 = 0:T3 = 

1020T4 = 0:T5 = 1:T6 = 

1030T7=-P:T8=-P:T9=-P 

1040 GOSUB 1200 'BOTTOM 

1 050 T7 = - P:T8 = — P:T9 = P 

1060 GOSUB 1200 'TOP 

1 070 T4 = 0:T5 = 0:T6 = - 1 

1080 GOSUB 1200 'LEFT 

1090T7=-P:T8=P:T9 = P 

1100 GOSUB 1200 'RIGHT 

1110T1=0:T2=-1:T3 = 

1120 GOSUB 1200 'BACK 

1130T7 = P:T8 = P:T9 = P 

1140 GOSUB 1200 'FRONT 

1170 RETURN 

1200XA = 0:YA = 0:LW=L:LH = L 

NX = N:NY=N 
1210 GOSUB 5000 
1220 RETURN 



Now RUN the program. If the program is 
working correctly, it enters the 'Initialization' 
routine starting at Line 1 10. This routine sets 
up some variables and prints a prompt for you 
to enter a value for D — the projection plane 
distance. The perspective built into the 
program is such that the greater this distance, 
the farther away the object appears which 
means it shows very little perspective. Enter a 
value of 1000 to begin with. The program 
returns to Line 120, which specified the 
length L of each side of the cube, and the 
number of grid squares N along each side. 
Lines 130 to 160 read in the coordinates of 
the eye position (Line 510), and then draw the 
cube from that position. As soon as the first 
view is drawn you can enter a new set of 
coordinates to see the cube from a new 
direction. When you enter the values 0, and 
0, the program ends. The routine from Lines 
500 to 530 actually calls the Position routine 
(Line 520) to set up the transformation 
constants. The Cube routine (Lines 1000 to 
1170) then positions and draws each of the six 
sides. The Side routine (Lines 1200 to 1220) 
plots each side as a grid, using the Grid 
routine. 

Try different values for the eye position to 
see the effect on the view. A value of 1000 for 
D and 200, and for X, Y and Z are good to 
start with. Then try 100 for D and 20, 0, for 
X, Y, and Z. The cube appears the same size 
but the perspective is much more pronoun- 
ced. To enter new values for X, Y and Z, press 




any key and the prompt will appear. To enter 
new values for D you have to press |BREAK| and 
then RUN the program again. You'll be given a 
prompt for D then a second prompt for X, Y 
and Z. 

On machines like the Acorn, the view is 
automatically 'clipped' if any part of it falls 
outside the screen. Thus it does not matter if 
you come in really close and the cube spills off 
the edge of the screen. This can give more 
spectacular views with exaggerated perspec- 
tive. On some machines such as the Spectrum, 
an error is reported if points to be plotted 
fall outside the screen area. Thus the program 
ignores any line which would go out of the 
available area. This may lead to odd results 
since all of a line is omitted, even if just the tip 
of it would be over the maximum permitted 
point. Points closer than a certain minimum 
distance, and points behind the eye, ZN(ZMIN 
for Acorns), are ignored. So if the eye position 
is very close to or inside the cube, spurious 
results will also occur. It is possible to check 
for such points and clip the lines approxi- 
mately but this requires considerable extra 
code and computation. 

Save a copy of the complete listing on tape 
or disk, because in a future article you can 
learn how to use the same routines to draw 
duplicate shapes, and to produce some spec- 
tacular circular graphics. 
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TOUR LINK 
WORLD 
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If you're fed up with games or 
simply want to use your computer 
to its fullest, why not consider 
linking yourself to bigger and better 
computers? 



Even the humblest of home computers can be 
connected to the telephone system and thence 
to some of the most powerful computers and 
biggest databases on Earth. Linked in this 
way you can access phenomenal amounts of 
information or, in a more practical sense, 
communicate with other computer enthusi- 
asts locally, nationally, or internationally. 

'Hacking' is the popular term used to 
describe computer use of this sort. And while 
it seems improbable that you could infiltrate 
sensitive databases (though this has hap- 
pened!) or trigger the next World War (which 
has only happened in fiction), almost any- 
thing is possible. A computer, a linking device 
called a modem, a telephone and the appropri- 
ate, usually very simple, software can quite 
literally open up the world. 

Computers can communicate with each 
other in three basic ways. They can send 
messages to each other over long distances 



using telephone lines or radio waves (or in 
some cases both). They can share the same 
information storage system (which in practice 
means sharing the same disk units). Or they 
can be connected directly and share each 
other's processor and memory. 



HELLO WORLD 



Of these options, the first is undoubtedly the 
most exciting, even thrilling, step forward for 
the home computing enthusiast. It is already 
possible to obtain equipment and software, at 
reasonable prices, which will enable your 
computer to talk to another computer almost 
anywhere on the globe over the very same 
'lines' which are used already for 
telecommunications. 

Through the telephone 
system, access to a huge 
range of facilities is 
possible — from 
software exchange 



set up amongst groups of friends to huge 
business, news and information services 
costing users several thousand pounds a year. 

Computer communications is one of those 
areas of new technology where the future 
really is here today. By enabling one com- 
puter to talk to another over long distances it 
is already possible to live and work from your 
own home without ever stepping outside the 
front door. 

You can peruse shopping lists, examine 
illustrations of the goods for sale, compare 
prices and order what you want from the 
comfort of your own armchair. You can 
control your finances, pay bills instantly and 
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BULLETIN BOARDS 



ARMCHAIR SHOPPING 
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TYPES OF MODEM 



keep an up-to-the-minute check on your 
financial position. An increasing number of 
jobs can be done from home using a micro, 
especially those office jobs which involve 
using and processing information. 

A secretary and boss, for example, could be 
miles apart in their own homes and still work 
well together using computer communic- 
ations. Having roughed out a letter on his or 
her own micro the boss can send it, complete 
with spelling mistakes and bad grammar, to 
the secretary who then corrects it, formats it 
so that it looks presentable, lets 
the boss have a quick check and, 
finally, sends it. 




BULLETIN BOARDS 



A lonely life? Perhaps, but not necessarily. It 
is also possible to contact other people with 
similar interests by computer. In some in- 
stances it doesn't matter where in the world 
they are, the cost of contacting them could be 
as little as a local telephone call. You can call 
up what is known as a bulletin board to read 
messages left by other people and to leave 
messages yourself. There are even bulletin 
boards set up for dating purposes! 

If you did decide to leave the comfort of 
your own home and venture outside you 
could book almost anything by computer — 
taxis, theatre tickets, holidays, flights and 
much more besides. 

Although there are many problems in 
linking up computers — caused mainly by the 
failure of manufacturers to establish common 
standards — almost every week sees another 
small breakthrough and every now and then 
there's a major breakthrough. Much of this 



pioneering work is carried out at the grass- 
roots level by enthusiastic amateurs and stu- 
dents and their teachers at universities and 
other higher education establishments. 

The growth of interest in computer com- 
munications, and indications that it is the next 
exciting area for exploration, are shown in the 
fact that more and more bulletin boards are 
being set up. 

You could, if you wanted to, set up your 
own bulletin board. Some are set up by 
companies, usually electronics companies, 
who provide some space for users while using 
other space on the 'board' to advertise their 
own goods and services. Others have been set 
up by groups of computer enthusiasts and by 
colleges and universities and this is the area of 
fastest growth. Although often usable at any 
time of day, bulletin boards run by hobbyists 
tend to be geared to evening use. 
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ARMCHAIR SHOPPING 



Many people take the view that these uses of 
computer communications are so far-fetched 
that they are likely to remain in the realms of 
science fiction for many years to come. But 
everything described so far is possible today. 
Some people are so familiar with armchair 
banking and shopping that they regard it as a 
part of everyday life. 

You can use your computer to access 
information about goods and prices at a wide 
range of shops. Or you can buy goods and 
services and pay for them with little more 
than a few keystrokes on the computer. The 
'work' is done by a large central computer. 
This holds all the information and carries out 
the electronic transfer of money from the 
customer's account to the shop's account. 



TELETEXT AND VIDEOTEX 



You can link up to any of the growing number 
of teletext and videotex services even with a 
small home micro as long as it and your 
television set have been adapted properly. In 
the case of the UK's two current teletext 
services, ORACLE (run by the independent 
television companies) and CEEFAX (run by 
the BBC) this means you have access to 
hundreds of pages of information including 
program listings and programs that can be 
loaded directly into your computer. Direct 
downloading in this instance is usually only 
possible with a BBC computer connected to a 
special teletext decoder. 

Sending and receiving — or uploading and 
downloading — software is one of the areas of 
greatest potential in computer communic- 
ations. Software is already being transmitted 
by both TV and radio. But while software 
available through teletext can be directly 
downloaded, the software available from local 
radio stations must usually be recorded on 
tape first and then loaded in the normal way. 

The major drawback of teletext, which uses 
broadcast signals, is that communication is 
one way only. But a viewdata system such as 
Prestel, which uses the telephone lines, can be 
two way. This means that your own machine 
can talk to the Prestel computer. In fact, there 
are several Prestel computers, offering the 
same service and, to some extent, interlinked, 
dotted around the UK, As well as making it 
much safer, this duplication of computers also 
helps to keep the system cheaper for the user 
who is charged realistic rates for using the 
telephone. The closer the computer is to the 
subscriber the cheaper the call — and many are 
on a local charge basis, 

In conjunction with Prestel there are ser- 
vices such as Micronet which, as its name 



suggests, is a network for micro owners 
enabling them to talk to each other and also 
providing a software service for subscribers. 
Micronet uses the Telecom network but is 
produced by an independent publisher. 

Another national computer communic- 
ations network run, like Prestel, by British 
Telecom is Telecom Gold. Prestel is intended 
to be an information service and many users 
have a specially made keyboard dedicated 
solely to accessing the Prestel service, Tele- 
com Gold, however, is much more flexible, 
developed especially for micro owners and 
therefore allowing a much greater degree of 
two-way communication. 

It can, for instance, send and receive 
information at a wider range of speeds which 
means that it's accessible to more makes of 
micro. Subscribers to the system are given 
access, via a password, to a Prime 750 
minicomputer. Users have all sorts of facil- 
ities at their disposal including Infox, which 
allows business subscribers to write their own 
programs to develop and manage a database, 
do spreadsheet calculations and write reports. 



ELECTRONIC MAIL 



Within systems like Telecom Gold it is 
possible to set up your own 'mailbox', Any- 
one who wants to get in touch can write a 
letter and leave it stored in the computer for 
you to read at leisure. Both sender and 
receiver must have computers, of course! 
Electronic mail of this type is a powerful 
business facility which is a step up from 
simple bulletin boards. 



NETWORKS 



Most of the well known uses of computer 
communications involve many small com- 
puters having access to one large computer, 
but all sorts of combinations are possible. 

A network could involve mainframe com- 
puters, minicomputers, microcomputers and 
the whole range of peripherals. The New York 
Times, for instance, uses all three types of 
computer in one of the most sophisticated 
newspaper production systems in the world. 
In this sort of system, several people working 
in one office may each use their own terminal 
linked to a minicomputer while one terminal 
in the office is linked to a mainframe. 

The day-to-day work — in the case of a 
newspaper editorial office, writing news 
stories or features — can be carried out using 
the minicomputers while the mainframe com- 
puter is used for the administration of the 
company and for databases. 

Meanwhile, journalists working away from 
the office — at home, for instance — can use a 
microcomputer with a modem to gain access 



to databases to gather information for their 
story over the telephone lines. Using a com- 
puter and a modem they can send a complete 
story to the office in a matter of seconds. 

Many correspondents at baseball games 
now sit at a keyboard and screen rather than a 
typewriter. At the press of a couple of buttons 
their summary of the game and the result can 
be fed into the office computer. Investigative 
reporters can carry out spot checks on inform- 
ation by calling up the database on the 
mainframe computer. 

Because manufacturers of computers have 
failed to agree on common international stan- 
dards, there are problems in linking up 
computers but, one by one, these are being 
overcome and computers are becoming more 
and more compatible with each other. This is 
especially so in the case of computer com- 
munications using telephone lines, because of 
the way in which the signals are transmitted. 



SECURITY 



The fact that many different computers can 
now communicate with each other over the 
telephone lines delights most micro owners — 
but horrifies many universities, large com- 
panies and government agencies! The pro- 
blem for many of these institutions is that 
they, too, use the telephone lines for internal 
and external connections for their big main- 
frame and minicomputers. This makes them 
vulnerable. 

All sorts of elaborate security surrounds 
these big computers but in some cases it's 
been proved that the most sophisticated 
security is not enough. Computers at all sorts 
of organisations have been broken into. There 
have even been stories that people have 
accessed American military computers. 

This was the basis of the film War Gaines 
and has been the subject of much controversy, 
especially in the USA where there have been 
complaints that hundreds of thousands of 
dollars worth of damage has been done by 
computer enthusiasts interfering with the 
mainframe computers of large corporations. 

It's the potential offered by computer 
communications that has also led to fears of 
massive computer frauds netting the 
electronic criminals millions of pounds. In- 
stead of jemmies or guns, robberies are 
committed with computers and telephones. 
Sometimes one of the biggest problems that 
banks and other vulnerable institutions have 
is finding out if they have been robbed at all! 
So much business is done by computers 
carrying out financial transactions 
electronically — using the telephone lines, of 
course' — that detection of electronic crime is 
becoming more and more difficult. This is 
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especially so if the criminal has managed to 
change all the records relating to his crime. 



OTHER COMMUNICATIONS MEDIA 



Telephones aren't the only means for commu- 
nicating with other computers. Radio waves 
can also be used. The sort of short wave 
equipment used by radio hams can be used to 
open up a link between one computer and 
another — as long as both computers are con- 
nected up to equipment which is capable of 
transmitting and receiving radio waves. 

The fastest communication between com- 
puters uses the technology of fibre optics. 
Information is coded in light pulses and sent 
down thin strands of 'glass'. This new tech- 
nology is reckoned to be much more efficient 
than any present method, and it enables 
information to be carried at the speed of light. 
Fibre optic communications are already in use 
and there is no reason why the same principles 
should not be applied to computer commun- 
ications as well. 

Direct links between computers and other 
peripherals are most common in offices. More 
than two computers can be linked together to 
form a network which could, for instance, 
enable a number of computers to share the 
same facilities such as printers or disk drives. 



TOWER OF BABEL 



No matter what means of communication is 
chosen there is always the problem of compat- 
ibility. A micro can only communicate with 
another micro — or with any other peripheral 
device— through the right interface. Without 
the correct combination of cables and sockets 
and a code that both machines will under- 
stand, communication is impossible. 

The telephone line is by far the most 
common medium for carrying messages be- 
tween one computer and another over long 
distances. This can only accept a serial signal 
rather than the speedier parallel type. 

This does not mean that all computers with 
parallel interfaces are unable to send signals 
via the telephone system. There is hardware 
and software available that will enable it to do 
so but it may be expensive — in some in- 
stances, more than the computer! 

One of the problems with using a telephone 
for communication between computers is that 
computers carry information in discrete (sep- 
arate) electrical pulses. But telephone systems 
are designed to carry the human voice — 
which is an analogue signal, continuous and 
variable. So data from a computer has to be 
converted into a similar signal. 



MODEMS 



The equipment used to convert the 
computer's data into signals which can be 
transmitted over the telephone lines, and vice 
versa, of course, is a modem. The word is an 
abbreviation of MOdulator/DEModulator, 
which is a description of the function of a 
modem. 

There are two types of modem, the acoustic 
coupler and the hard wired or direct connect 
modem. Both come in a variety of shapes and 
sizes but are usually contained in a box. The 
acoustic coupler has two rubber cups which 
will accommodate the telephone handset. 

The acoustic coupler is connected to the 
micro and turns signals from the micro into 
tones which can be sent down telephone lines. 
It also converts incoming tones from another 
computer into digital information which the 
receiving computer can understand. 

Hard wired modems encode (or modulate) 
data from the computer directly into electrical 
signals and decode (or demodulate) incoming 
information into serial bits which can be 
understood by the computer. These hard 
wired modems can transmit information at 
faster speeds than acoustic couplers and are 
less prone to errors. 
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Spectrum programs that SAVE to 
and LOAD from tape can be made to 
work with a Microdrive by putting 
them through this simple machine 
code routine 



So far, all the programs given in INPUT have 
assumed that you are SAVEing to and LOADing 
from tape. But more and more people are 
now using Microdrives or disk units. 

Of course, if you do have a Microdrive you 
can modify the programs given in INPUT to 
work with them, by hand, yourself. But why 
not let your computer do it for you? The 
following assembly program will modify 
many BASIC, tape-dependent programs for 
use with the Microdrive on the 48K Spec- 
trum. If you have a 16K machine, the 
program will still work on this. But you will 
need your own assembler since the INPUT 
assembler will not run on the 16K (unless of 
course, you want to hand assemble the 
program). And you will need to relocate the 
start address. The 16K origin should be at 
32400 and you will have to CLEAR to 32399. 

Similar programs can be written for other 
machines, but the BBC Micro does not need a 
conversion program as it will default to disk 
drives, if the equipment is present. The 
Electron and ZX81 don't have disk drives, 
and it is not possible to give a program for the 
Dragon as there are three different disk 
systems available. A disk program for the 
Commodore 64 and the Vic will follow. 



To turn the normal tape instructions — LOAD, 
SAVE, VERIFY and MERGE— into the Spectrum 
Microdrive instructions *"m",1; has to be 
added after the instruction, giving 
L0AD-*"m",1; and SAVE*"m",1; and 
VERIFY*"m",1; and MERGE*"m",1;. And 
also, everything following the addition has to 
be shoved up in memory to make room. The 
following program makes the substitution 
and the shift for you. Following the explan- 
ation of how it works, you'll find detailed 
instructions on how to use it. Please refer to 
the Spectrum assembler modification on the 
inside back cover of Issue 18. 

10 REM org 65200 
20 REM Id hl,(23635) 
30 REM start push hi 
40 REM pop ix 
50 REM inc hi 
60 REM inc hi 




70 REM inc hi 
80 REM nxtchr inc I 
90 REM Id a,(hl) 
100 REM cp 239 
110REM jrz,insert 
120 REM cp 248 
130 REM jr z,insert 
140 REM cp 214 
150 REM fr z.insert 



160 REM cp 213 
170 REM jr z,insert 
180 REM cp 14 
190REM jr nz,notfp 
200 REM Id de,5 
210 REM add h!,de 
220 REM notf p cp 1 3 
230 REM jr nz,nxtchr 
240 REM inc hi 
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250 REM push hi 
260 REM Id de,(23627) 
270 REM and a 
280 REM sbc hl,de 
290 REM pop hi 
300 REM jr cstart 
310 REM rst 8 
320 REM defb 255 
330 REM insert inc hi 



LOCATING SAVES, LOADS, 
MERGES AND VERIFYS 

AVOIDING FLOATING 

POINT NUMBERS 

USING THE STACK 



USING A DATA TABLE 



MOVING THE PROGRAM UP 



ADDING DATA 





UPDATING THE SYSTEM 



VARIABLES 



340 REM Id a,(hl) 

350 REM cp 42 
360 REM jr z,nxtehr 
370 REM push hi 

380REMIdhl,(23641) 
390 REM pop de 
400 REM push de 
410 REM and a 
420 REM sbchl,de 
430 REM Id b,h 
440 REM Id c,l 
450 REM Id hl J (23641) 
460 REM Id de,13 



What happens if I call this 
machine code program when 
there is no BASIC program in 
memory? 

Don't worry. The machine code 
program will not crash. When there is 
no BASIC program there are no 
variables either. So the system variables 
PROG, VARS and ELINE all point to the 
same address. The next thing above 
ELINE memory is the edit line. In direct 
mode, the command is not trans ferred to 
the BASIC area when you press [RETURN | , 
So when you call the machine code 
program, the R ANDOMIZ E USR 65200 
followed by the |RETURN| stays in edit 
line area. 

The machine code routine then runs. 
It starts searching through the memory 
locations after PROG, which in this case 
is the edit line, for a LOAD, SAVE, MERGE 
or VERIFY. It won't find one. And when 
it hits the |RETURN| , it recognizes it as an 

Knd of line character. So it subtracts the 
alue of VARS from the current byte 
pointer and goes onto the restart routine 
which returns to BASIC if there is no 
carry. But if the current byte pointer 
is past VARS, the subtraction will 
not give a carry, so the routine 
always returns to BASIC. 



470 REM add hl,de 
480 REM ex de,hl 
490 REM ldhl,(23641) 
500 REM dec hi 
510 REM decde 
520 REM Iddr 
530 REM ex de,hl 
540 REM inc de 
550 REM Id hl,table 
560 REM Id bc,13 
570 REM Idir 
580 REM ldbc,13 
590 REM pop hi 
600 REM push hi 
610 REM call $1664 
620 REM lde,(ix + 2) 
630REMIdd,(ix + 3) 
640 REM Id hl,13 
650 REM add hl,de 
660 REM ex de,hl 
670 REM Id (ix + 2),e 
680REMId(ix + 3),d 
690 REM pop hi 
700 REM jr nxtchr 
710 REM table defb 42 
720 REM defb 34 
730 REM defb 109 
740 REM defb 34 
750 REM defb 44 
760 REM defb 49 
770 REM defb 14 
780 REM defb 
790 REM defb 
800 REM defb 1 
810 REM defb 
820 REM defb 
830 REM defb 59 
840 REM end 

This program uses several of the important 
system variables which point to the BASIC 
area. These include PROG, VARS and ELINE 
which you should remember from the Spec- 
trum memory map (see page 210). The 
pointer in 23,635 and 23,636, PROG, points to 
the first byte of the BASIC area. Normally 
this is fixed at 23,755, but when you plug in 
your Microdrive it shifts. So you have to look 
up the appropriate system variable. 

The system variable, VARS, at 23,627 and 
23,628, points to the first byte of the variables 
area — that is, the first byte past the end of the 
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BASIC program area in memory. 

And ELINE, at 23,641 and 23,642, points to 
the first byte of the edit line, or the first byte 
past the end of the variables area. 



HOW IT WORKS 



The first assembly language instruction Id 
hl,(23635) loads the HL register pair with the 
address given by the system variable PROG. 
This is the address of the first byte of the 
BASIC program. This is then pushed onto 
the stack and popped off again into the IX 
register. 

The HL register is going to be used as a 
pointer, travelling byte by byte through the 
program, while the IX register is going to be 
used to mark the beginning of each line of 
BASIC. This will be needed later when the 
byte carrying the line length has to be altered, 
which it will have to be when the additional 
instructions for accessing the Microdrive 
have been added. 

This strange manoeuvre, pushing the poin- 
ter onto the stack and popping it off again, is 
used because there are no instructions that use 
both the HL and IX registers. This is because 
the HL and IX registers are equivalent. 
Instructions using the HL register use the IX 
register if a one byte prefix is specified before 
the opcode. 

Each line of BASIC begins with the 
BASIC line number — which takes up two 
bytes — and the line length — which takes up 
another two bytes. Obviously, there are not 
going to be any tape instructions in this part 
of the line, so they can be skipped over by 
incrementing the HL register four times with 
the inc hi instruction. 

The Id a,(hl) instruction then loads the 
accumulator with the first byte of the line 
proper. The next set of instructions compare 
it with the tokens for the various tape instruc- 
tions which have to be changed. 



THE CHECKS 



The cp 239 compares the first byte with the 
token for a LOAD. And if it is a LOAD, the jr z— 
jump relative if zero — jumps to the insert 
routine. 

The cp 248 compares it with the token for 
SAVE. The Cp 214 compares it with the token 
for VERIFY. And cp 213 compares it with the 
token for MERGE. If any of these occur, the 
processor jumps to the insert routine. 

There is one other circumstance when 
these numbers could occur when they would 
not be the token for a tape instruction — in a 
floating point number (numbers stored in a 
scientific format, a topic to be covered later in 
INPUT). But all floating point numbers are 
always prefixed with the marker 14. So cp 14 




checks for that. And if the marker 14 is not 
found the next instruction jr nz-Hump rela- 
tive if not zero — jumps over the next two 
instructions to the label notfp and continues 
with the program. Otherwise, the DE register 
is loaded with 5, and that is added to the HL 
register to skip over the next five bytes — 
floating point numbers on the Spectrum are 
always five bytes long. 

The next thing that has to be checked for is 
a new line character which marks the end of a 
line of BASIC. The ASCII for this is 13. If 
the character is not a new line marker, the jr nz 
jumps back to nxtchr. The inc hi then incre- 
ment the HL register ready to deal with the 
next character. 

If the character is a new line marker, HL is 
incremented, to move onto the first byte of 
the next line, and pushed onto the stack. The 
HL register has to be used for another job for 
a moment, but its contents must be saved. 
Storing them on the stack is the most conve- 
nient way to do this. 

The next thing to check, if the program has 
hit a new line marker, is whether it has come 
to the end of the program. So the address of 
VARS — the address of the first byte after the 
end of the BASIC program — is loaded into 



the DE register. The and a ands the ac- 
cumulator with itself, which is a quick way of 
clearing the carry flag. 

Then DE — which contains the value of 
VARS — is subtracted from HL — which carries 
the program pointer to the first byte past the 
last line of BASIC dealt with. 



THE END OF BASIC 



When the Microdrive conversion program 
has not reached the end of the BASIC 
program, the value of the pointer is bound to 
be less than that of VARS — so the subtraction 
will need a borrow and set the carry flag. 
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But when the end of the program has been 
reached, the pointer in HL will carry the same 
value as VARS, the subtraction will not require 
a borrow and the carry flag will not be set. 

Before the result is tested, the original 
value of the pointer in HL is popped back off 
the stack — otherwise HL would carry the 
value after the subtraction. 

The jr c— jump relative if carry flag set — 
then does the test. If the carry flag is set, and 
the end of the BASIC program has not been 
reached, the processor jumps back to the label 
start. The contents of HL are copied into IX 
and the routine starts on the new line. 

If the carry flag is not set, and the end of 
the program has been reached, the jump is not 
made and the next two instructions are 
performed. 

The rst 8 and defb 255 are an alternative 
way of returning to BASIC, rst 8 returns the 



computer to BASIC via the error message 
routine. This throws up the error message 
specified by the next byte in memory, defb is 
the assembler directive which defines — or 
sets aside — a byte of memory for the data. In 
this case, the number 255 is put into that 
location. The rst or restart routine automati- 
cally increments whatever is given in this byte 
and returns that error message. It also clears 
the machine stack, so you don't have to worry 
about pushing and popping, as you would 
with a normal ret instruction. When it incre- 
ments 255, or FF in hex, it gets 0. The error 
message associated with is OK — but with 
the interface connected you end up with a 
Program Finished error message. 



THE INSERT ROUTINE 



The next instruction starts the insert routine. 
And the first thing to be done is to check that 



the conversion for Microdrive has not already 
been done. You don't want to add the 
*"m",1; twice. So the routine checks that the 
next byte is not a *. 

To do this, inc hi increments the HL 
register so that it looks at the next byte. This 
is then loaded into the accumulator by the Id 
a,(hl) and compared to 42 — the ASCII code 
for * — by cp 42. If the next character is a *, 
the jrz,nxtchr jumps back to nxtchr and shifts 
the following characters along as normal — in 
other words, it does not go on to insert the 
Microdrive instruction, as it assumes it is 
already there. 

If the next character is not a *, the jump is 
not made and the next instruction is executed. 
This pushes the HL register onto the stack 
because the HL register is going to be used for 
other jobs again and the pointer HL must be 
saved for use later. 

HL is then loaded with the address of 
ELI NE— the first byte past the end of the 
variables area — by Id a,(23641 ). The next item 
on the stack is then popped off into the DE 
register. The last thing to be pushed onto the 
stack was the contents of the HL, which were 
then the current position pointer. 

Once this pointer has been copied into the 
DE register, it is pushed back onto the stack, 
because it will be needed again later. But this 
pop and push does leave the value of the 
pointer in the DE register as well as on the 
stack. 

The carry flag is cleared again with the and 
a, and the value of the pointer is subtracted 
from the value of ELINE. This gives the num- 
ber of bytes left in the program and variables 
area after the tape instruction has been dealt 
with. The variables as well as the program are 
going to be shifted up in memory. 

The sbc hl,bc puts the result of the sub- 
traction in the HL register. The result is then 
stored in the BC register. This has to be done 
a byte at a time with the two instructions Id 
b,h and Id c,l because there is no Id bc,hl 
instruction. Well, you can't have everything. 

The pointer ELINE is then loaded into the 
HL register again and the DE register is 
loaded with 13. The contents of these two 
registers are added to give the address ELINE 
has to be moved to allow the Microdrive 
additions to be made — they take 13 bytes, 
remember. The result of the add is put in the 
HL register and the ex de.hl exchanges the 
contents of the HL and DE registers, effec- 
tively storing the result of the addition in the 
DE register. 

HL is then loaded with ELINE again. The 
dec hi and dec de then decrements the HL 
and DE registers, so that HL now points to 
the last byte in the variables area — in other 




words, the last byte that has to be moved — 
and DE contains the address, 13 bytes on, to 
which it has to be moved. 



MAKING THE SHIFT 



The Iddr — load, decrement and repeat — 
actually makes the shift. It loads the contents 
of the memory location pointed to by HL, 
into the memory location pointed to by DE 
(the easy way to remember which way round 
the shift goes is to think of DE as standing for 
DEstination), decrements HL, DE and BC 
and repeats the operation if BC is not zero. It 
is not hard to see that this one instruction will 
shift the contents of the variables area and the 
program byte by byte 13 bytes up in memory. 
And it will keep on doing so until it works its 
way down the tape instruction. 

The ex de,hl exchanges HL and DE again, 
so the address of the tape instruction is now 
put into DE. This is incremented by inc de to 
point to the next byte after the tape instruc- 
tion. The Iddr instruction does the decre- 
menting and testing after the last byte has 
been moved, so the pointers have been de- 
cremented one too many times. This inc 
compensates for that. 

The HL register is then loaded with the 
start address of the table of data given at the 
end of the assembly listing here. As you can 
see these are stored in the form of defb. These 
are defined bytes. The 13 bytes stored there 
are the *"m",1;. You'll see that the first six 
bytes are the ASCII codes for *"m", and 1 . 
And the last byte is the ASCII for ;. 

Bytes seven to twelve contain the number 1 
in floating point format. You'll note that it is 
prefixed by the token 14, for which the 
program checked early on. The following five 
bytes contain the actual floating point format 
version of 1. (Floating point numbers will be 
dealt with more fully in a later chapter.) 

BC is then loaded with the number 13. It is 
going to be used as a counter to count these 13 
bytes as they are stored in the space left by- 
shifting the rest of the BASIC program up. 

The Idir — load, increment and repeat — 
instruction loads the contents of the memory 
location pointed to by HL into the memory 
location pointed to by DE, increments HL 
and DE, decrements BC and repeats the 
process if BC is not zero. In other words, it 
reads the 13 bytes from the data table into 
space created after the tape instruction. So, 
for example, it converts SAVE into 
SAVE-*-"m",1;, to turn the tape SAVE instruc- 
tion into the Microdrive version. 



TIDYING UP 



Once the conversion has been done, the 
system variables have to be updated. This is 



done by calling the so-called 'pointers' rout- 
ine in ROM which begins at 1664 in hex. But 
first BC must hold the number of bytes the 
pointers are to be changed by and HL must 
contain the value of the current byte. It only 
updates the system variables that relate to 
addresses above this point in memory. 

The Id bc,13 loads BC with 13, and pop hi 
and push hi put the address of the current byte 
into the HL register, then back on the stack so 
it can be used again. 

The next bit of tidying up to be done is 
fixing the line length. The second and third 
byte of each line of BASIC store the length of 
that line. The start address of the line was 
stored in the IX register at the beginning of 
the assembly language routine, remember. So 
Id e,(ix + 2) and Id d,(ix + 3) load the contents 
of the second and third bytes of the current 
line into the E and D registers. As you know 



these two registers are usually used as a 
register pair in the order DE. So the higher 
byte, the third, goes into D and the lower, the 
second, goes into E. 

HL is then loaded with 13, and HL and DE 
are added. This boosts the line length by 13, 
but the result is put in HL and it needs to be 
in DE. There is no add de,hl instruction. 
Additions and other similar arithmetic func- 
tions can only be performed on the ac- 
cumulator or HL register pair. 

The ex de,hl moves the result into DE. It 
needs to be in DE to perform the next two 
instructions — Id (ix + 2),e and Id (ix + 3),d. 
There are no similar instructions with the L 
and H registers. There are no instructions 
using the HL and the IX registers together. 

The Id (ix+2),e and Id (ix + 3),d loaded 
the new, increased line length into the second 
and third bytes of the line. The current byte 
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pointer is then popped off the stack into HL, 
so that it is ready to be incremented to point to 
the next byte of the program when jr nxtchr 
jumps back to the label nxtchr and the whole 
process starts all over again. 



HOW TO USE IT 



Don't forget to CLEAR to one less than the 
origin to protect this program from overwrit- 
ing. You'll need to do that both before you 
assemble it, and before you LOAD the program 
in again if you SAVE the object code on 
Microdrive or tape. 

You should SAVE the source code along 
with the assembler, using the normal tape or 
Microdrive SAVE instructions, before you try 
testing the program. That way, if it crashes, 
you don't have to key the whole thing in 
again. All you have to do is LOAD the program 
in again and modify the assembly language. 



Naturally, to test it you'll have to input a 
program that has tape instructions on it. The 
best one to use is the machine code monitor 
(see page 280). That way, if the program is 
working, you can use it to SAVE the machine 
code direct to Microdrive. 

Otherwise, you can SAVE this program — 
and any other machine code program — to tape 
using: 

SAVE "name" CODE start address, number of 
bytes 

The "name" here is the name of the program 
and must be in quotes, start address is the 
origin — 65,200 was used here. And number of 
bytes is the length of the machine code. This 
program is 1 36 bytes long. The start address 
and the number of bytes must be separated by 
a comma. 

To SAVE on Microdrive use: 




SAVE*"m",1; "name" CODE start address, 
number of bytes 

And to LOAD it back off tape you use: 

LOAD "name" CODE 

and to LOAD back into the machine from the 
Microdrive: 

L0AD*"m",1; "name" CODE 

You can put start addresses after the CODE in 
the LOAD instructions. If this is different from 
the place at which the program was as- 
sembled, the LOAD will relocate it, starting at 
the new address. This program will not 
relocate after it has been assembled though, 
because of the use of the label table which the 
assembler fills in with an absolute address. 

To run the program, you use one of the 
regular machine code calls like: 

RANDOMIZE USR 65200 




WARNING 

You do have to be a bit careful when using 
programs originally designed for use with 
tape that have been converted for use with 
Microdrive. One problem is that on tape 
you can SAVE more than one program with 
the same name. In fact, when you're 
developing a program it is quite 
common — although bad practice — to SAVE 
each stage of development under the same 
file name. On Microdrive, though, you 
will get an error message if you try to do 
this without erasing the first file. 
To do this you use the command: 

ERASE"m",1;"filename" 

where filename is the name of the file or 
program. 

You also have to watch for null strings. 
A tape program might have LOAD A$ in it, 
for example. If A$ turns out to be a null 
string, with tape, LOAD "" will simply 
LOAD the next thing on the tape. 
L0AD*-"m",1;"" will not work with a 
Microdrive though. 

Your tape-dependent programs might 
also have PRINT instructions to tell you to 
position the tape and to press play, or play 
and record, on the tape recorder. You'll 
have to check through the program and 
remove these instructions by hand. 
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The word 'files' means many 
different things in computing, 
embracing everything from a loose 
descriptive term to specific ways of 
storing and accessing information 



A good knowledge of what files are and how 
they are used can enormously extend the 
versatility of your computer. 

File is the word used to describe any kind 
of data unit stored in a form which makes it 
accessible to your computer. Although an 
obvious application of the term is to the 
storage of information, even taping a BASIC 
program is, in this sense, creating a file. Filing 
can thus be applied to a BASIC program, a 
section of machine code, the 'text' produced 
by a wordprocessing program, or the raw data 
of filing programs. 



FILE TYPES 



File types take several forms. Each has differ- 
ent requirements and uses. 

The easiest — and commonest — form of 
storing information is what's called a serial 
file. A file of this type consists of data that is 
read, item by item, from a storage device in 
exactly the same sequence as it was written. 

Described simply, a serial file consists of 
three types of data: a header which among 
other things identifies the file; then there's a 
'raw' data which goes to make up the file; and 
finally, (except on the Acorns) some kind of 
marker which identifies the end of the file. 

One of the disadvantages of a serial file is 
that information can only be processed in the 
order in which it has been stored. This means 



that if your program has to look for something 
in the middle of a file you have saved, the 
whole lot has to be loaded in so the search can 
start at the beginning. 

The situation is improved greatly if the 
information is actually arranged into some 
sort of order. In any database application, 
files are typically ordered alphanumerically. 
In this form, a serial file can correctly be 
called a sequential file, although this term is 
often used to describe any file that's been 
stored serially. But it's worth noting that a 
true sequential file has some sort of structure 
that is defined by the user or the program 
from which it came. 



DISK-BASED FILES 



The very great restriction of tape- based 
storage systems is that they can only read 
information serially, thus many tape-based 
files have to take the form of sequential files. 
For most common applications this is, thank- 
fully, not a problem. 

In fact, serial files are often used not just on 
tape, but also on the much more versatile 
disk-based storage systems (see page 504 to 
508). However, the manner in which disk 
systems read data makes them suitable for, in 
particular, one other type of file: a random 
access file (otherwise called a direct access or 
relative file). There are other types of disk- 



based filing system, but these either are not 
used by home computers, or are peculiar to 
certain disk-operating systems. 

A disk is formatted before use to give a 
certain number of blocks in which data can be 
stored. Each of these is a bit like a cell in a 
honeycomb, linked but clearly separate. The 
blocks are identifiable by track and sector 
coordinates; this enables them to be accessed 
directly and, if necessary, in any order (ran- 
domly) by a suitable program. This enables 
individual blocks to be called up, amended 
and saved once again without any of the 
others having to be disturbed — nothing else 
need be held in memory. As a result, inform- 
ation processing takes place very much faster 
and the actual size of the file itself is restricted 
only by the capacity of the disk system in use. 



ASCII FILES 



If file information is independent of a 
program and can be stored separately, you can 
have an almost infinite number of files. With a 
wordprocessing program, for example, you 
can have separate files for standard letters, 
articles, and so on. 

But one of the real benefits of using a 
system of separate files is that different types 
of program can access information from 'fore- 
ign' files — and not necessarily on the same 
computer. A spreadsheet can access files for 
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other, different applications, and a standard 
database can be used to 'construct' datafiles 
for any number of subjects and actually take a 
variety of forms. 

This can be done using sequential files 
written in the common language of the ASCII 
code (see pages 315 to 320). This is possible 
on most computers — even those that might 
err from true ASCII. 

Everything that's saved, including com- 
mand words and variables, is stored in strings 
of the relevant ASCII characters. The 
program, in effect, becomes a text file. 

Once saved in this form, the information is, 
in theory at least, accessible to other com- 
puters capable of being linked to your ma- 
chine. Typically, though, you'll be using an 
ASCII file so that you can call it up from a 
wordprocessing program. In this way, the 
editing facilities of this may be used to full 
effect, and the program can then be saved 
after editing as a text file. 

Note that the 'transportability' of ASCII 
files from one machine to another may be 
impeded if embedded control codes have been 
used. Control codes of this kind might typi- 
cally be generated by a wordprocessing 
program for a printer. These are not standard 
codes, and although the transfer would be 
possible, the program would most likely crash 
as soon as it was run. 
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DATAFILES 



Any database program, such as a compute- 
rized filing system, spreadsheet or accounts 
package works by manipulating information 
which you have already fed in. The last thing 
you want to do is type in all the information in 
an applications program such as a mailing list 
each time you intend using the program! You 
might as well write out the labels by hand. 

The answer is to store the information 
separately from the program as a datafile. 
Keeping the information separate greatly 
extends the capabilities of a program and, to 
some extent, frees the computer from any 
memory restrictions as the storage device can 
be used as a kind of 'virtual' memory calling 
in only information as it is required. 

The smallest component of any filing or 



data system, computerized or not, is in fact a 
single entry. Several entries typically make up 
a record. Each of these records is divided into 
fields. Each field has a label, title or heading 
which remains more or less fixed for every 
record in that file — this simply indicates the 
nature of the entries made in the other part of 
the field. The record then forms part of, 
perhaps, a batch of similar records — a file. 
You can see this type of structure in operation 
in the file program on page 46. 

Consider a simple card-index file. The file 
is like the complete set of cards, related by 
some overall subject — a club membership list 
perhaps. A record is an individual card, which 
could be for a single member of that club. 
And the fields are the separate entries on that 
card — the name, address, and so on. 

In a 'paper' system, a file may be carried in 
a loose-leaf folder, box, cabinet — or whatever. 
All these 'containers' of records are often 
referred to as files but are essentially physical 
means of storing and (in some cases) trans- 
porting information. 

It's not quite the same in a computer data 
system. Unless all the data is actually re- 
corded on the same tape or disk it hasn't quite 
got the same 'physical' relationship as pieces 
of paper have to their filing cabinet. In some 
applications the data is completely stand- 
alone and would occupy a separate tape or 
disk. In others, the data must form an integral 
part of a program and cannot be considered a 
separate database. 

Stand-alone datafiles (and in some cases 
integral datafiles) can often be called up by 
programs which were not originally respo- 
nsible for their creation. Thus information 
entered via a spreadsheet program could be 
accessed by a wordprocessing program. Note 
the use of the word accessed rather than 
transferred — the program looks at and uses 
the information, and does not remove it. In a 
paper system, however, transference is the 
only way in which information can move from 
file to file without being copied. 



FILE NAMES 



What does not differ, however, is the need to 
describe a file by name. It would be difficult, 
perhaps impossible, to access data in a com- 
puterized system without a name for a 
program to hunt for. 

Names for computer files have to be chosen 
with some care if a program is to access these 
properly. Tape data can be loaded on a 'next 
program in' basis if there is no name. But any 
search routine needs a name to latch on to. 

On tape systems it is possible to have 
different files sharing the same name — or to 
save files with no name at all. But both pose 



severe problems. For example, if you instruct 
the computer to load the latest version of two 
files with the same name, it cannot make this 
decision, but will stop at the first it comes 
across. The solution is always to use a proper 
file name, and ensure that it is unique. 

When you are using a disk-based system 
the protocol for the way you use file names is 
very much the same as for tape. But on some 
systems it is quite possible to overwrite a 
wanted file by unwittingly using the same 
name. Better disk operating systems prevent 
this happening. You can usually take special 
precautions to prevent this happening, such 
as locking the file. 

In choosing a name make sure you stick to 
the length limits of each machine or system. 
On tape, a file name's length is restricted to 10 
characters on the Spectrum, 16 on the Com- 
modore, 10 for the Acorn and 8 for the 
Dragon/Tandy. On disk systems the length 
may differ. 

Finally, use a file name which is easily 
remembered! It's a good idea to keep a 
separate record of what these are. 



WRITING AND READING 



The process of transferring data files to and 
from storage is described by the words write 
and read. Each computer has a different set of 
input/output commands for writing and read- 
ing but the general routine is the same for all. 

In a typical application, a core program of 
some description is the first thing to be loaded 
into the computer — this might be a database 
or a wordprocessing program, for instance. 
Or, you could enter a program by hand. 

If the program needs working data which is 
not available from within the program, this 
has either got to be loaded — or read in — from 
a data file or entered manually. This data is 
then manipulated, edited, amended or other- 
wise worked on. Data cannot be erased or 
amended while it is actually on a tape or disk. 
With some types of file, all the information 
has to be loaded into the computer, even if 
only a very small part of it has to be changed. 
This is the case with the Spectrum and 
Microdrive. In other cases, you can work on 
parts of the data by calling just what's needed. 

Finally, the information is written out 
to an external storage device such as a tape or 
disk file, or another device such as a printer. 

Let's look at the write and read stages more 
closely — in this order for convenience. First, 
an instruction must be given to the computer 
to open a channel so that it knows information 
is about to be passed somewhere. Other 
information can be provided along with the 
channel open command, to specify just what 
peripheral device is being addressed. Usually 



the peripheral will be a tape or disk unit. 

After the channel has been opened, another 
command is used to change the output device 
if this is necessary. The computer has to know 
which device it is addressing regardless of 
whether information is coming in or going 
out. This other information is provided by 
additions to the main commands or use of 
alternative command words. On some com- 
puters, you must be careful if more than one 
device is fitted to your computer — as your 
computer may default to a particular value. 

Commands are then used to send or write 
information to the nominated device. When 
you are reading information, the steps are 
similar up to this point but the commands for 
receiving or reading information obviously 




45 \BASICiRROGRAMMJM 



reverse the direction of transmission. In each 
case, a buffer within the computer is used as a 
temporary information store, passing parcels 
of information onwards, piecemeal, normally 
only when the buffer is full. 

When communications are complete, the 
opened channel is given the instruction to 
close. All information in the pipeline (within, 
in other words, a partially-filled buffer) is 
then forced to complete its journey, the 
computer marks the end of the file and 
generally tidies up. 

No other information can be passed to or 
from a closed file until it is reopened. But this 
need not impede file handling on other 
opened channels in systems where several 
opened channels can operate at once. 



While on the subject of terminology, 
several other words are used to describe the 
information transfers which take place when 
files are being written and read. For instance, 
external devices which receive data during a 
writing sequence are said to listen. Those that 
send data to the computer are said to talk. 

The actual instructions used by the various 
computers do differ slightly, so now let's look 



at these. You will have come across most of 
them in programs you've already keyed in. 
Note that the normal SAVE and LOAD com- 
mands (and variants) which apply to program 
files are not listed here. 
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In each of the examples here the letter N 
stands for the file number which relates all the 
various input/output commands, and X or X$ 
is the data which passes along the file 
channels. 



If you're using a cassette storage system, you 
are limited to using program files, bytes and 
arrays only. Therefore, the need to consider 
file handling procedures is, at this level, 
mainly of academic interest because the capa- 
bility is so limited. True data files can, 
however, be handled rather more rapidly with 
the Microdrive fitted. The range of 
input/output keywords which can be used are: 

0PEN# 

This is used to prepare the system for transfer 
of information. It takes the standard form 
0PEN#N;"m";1;"filename" where the file- 
name can be a string or previously assigned 
variable. Data is sent along a stream number 
N, along the Microdrive channel (m), to the 
Microdrive file. 

PRINT # 

Used in the form PRINT # N;X (or X$) to write 

data to the buffer. 

INKEYS 

This gets a single character or empty string 

from the keyboard each time it is used. 

INPUT 



Gets data from the keyboard until I ENTER I is 
pressed. 

INPUT # 

This is used in the form INPUT#N;X (or X$) 
to get data from the buffer until a carriage 
return is reached. 

CLOSE # 

This closes a previously opened stream using 
tion format CLOSE #N. 




The instruction for opening up, using and 
then closing a channel on the Commodores 



can make use of the following BASIC 2 input 
(read)/output (write) keywords: 

OPEN 

Sets up a channel for input or output. It's 
used in the form OPEN N,D,S,X$ where the file 
number (in which N can range from 1 to 127) 
is followed by device number D. Each 
peripheral — and this includes modems and 
printers in addition to disk and tape storage 
units— has its own number (disk for example 
is usually 8, tape is 1, and the screen is 3). 

This number is followed by a secondary 
address S, and then a string (X$). All but the 
file number can be optional. The secondary 
address is given a specific range of values 
depending on the device number used and a 
precise number within that range depending 
on the function of the OPEN statement. 

The closing string can be a file name alone 
in the case of tape read/write operations, but 
for input/output to disk consists of drive 
number, file name, file type, and a specified 
read/write instruction. In the latter form, a 
typical reading instruction might take the 
form OPEN3,8 S 3,"0:F1LENAME,S,R". 

A great amount of control is possible from 
within an OPEN statement, as you can see. 
And, in reality, it takes a somewhat different 
form for each device. 

CMD 

Changes the output device number when this 
is necessary, typically to redirect information 
from the screen (to which the system defaults) 
to another device (whose number must be 
specified in a previous OPEN instruction). 

GET 

Gets one character at a time from the 
keyboard. 

GET# 

Gets one character as a time through an 

OPENed channel. It takes the form GET# N,X. 

INPUT 

Gets a data string from the keyboard. 

INPUT# 



Gets a data string through a previously 
OPENed channel, and takes the form 
INPUT #N,X. The string is assigned to the 
specified variable and assumed to be complete 
when a carriage return value is received. 

PRINT 

Directs information to the screen. 

PRINT # 

Directs information along a previously 
OPENed channel, to the screen, unless another 
device has been specified. 

CLOSE 

Closes a previously OPENed channel using the 

statement CLOSE N. 



u 



On the BBC micros a system of default filing 
is employed and any file-handling operation 
will be directed to or from the most 'senior' 
device fitted to the computer. Eligible devices 
generally will be tape and disk units but 
ROM, Econet and others may be fitted. 
Typically, though, all input and output will 
go to a disk rather than tape unit if both are 
fitted. The lesser device has to be specified 
when a channel is specially directed to it (for 
example, using *TAPE or *T. to pass inform- 
ation to the tape unit if a disk unit is fitted). 
On the Electron no such problem exists. 

0PEN1N 

This sets up a channel for input (reading) or 
output (writing) in BASIC 1, but input only 
in BASIC 2. The instruction takes the form 
N = OPENIN("FILENAME") which opens a file 
called FILENAME and assigns its channel num- 
ber to variable N. The file name can be a string 
or string variable and is optionally enclosed 
within brackets. 

OPENOUT 

Opens a new file to receive output, in both 
BASIC 1 and BASIC 2. It's used in the same 
way as OPENIN but for writing information. 

OPENUP 

Opens an existing file for input or output in 

BASIC 2 only. It follows the same form 

OPENIN. 






INPUT# 

Gets a data string through a previously 
opened channel. It is used in the form 
INPUT # N,Z$ to read a string from a file with 
channel number N and assigns it to Z$. 

PR1NT# 

Sends information out through a previously 
opened channel. The instruction takes the 
form PRINT # N,X where X is a number that is 
sent out. 

CLOSE # 

This closes a previously opened file. The 
operating system then marks the end of the 
file. The instruction takes the form 
CLOSE #N. Another form of this instruction 
is CLOSE #0 which closes all open files. 

fSSU 

Several straightforward keywords are used to 
open lines of communication with, typically, a 
tape recorder. Disk units can be fitted but the 
file-handling requirements of these are dic- 
tated by the operating systems in use. 

OPEN 

This opens a channel to a specified device. 
For writing (output) to tape it takes the form 
OPEN "0",#-1,"FILENAME" where only 
the FILENAME string is defined by the user's 
program. The device number ( # — 1 ) is that 



of a tape recorder. The input instruction from 
tape takes the basically similar form OPEN 
"I", #-1, "FILENAME". 

INKEYS 

Gets a single character from the keyboard. 

INPUT# 

Gets string data from storage when a file is 
being read back. The additional instruction 
E0F( — 1)— end of file — must precede the 
INPUT#— 1 statement to avoid an input 
error. This simply makes sure that, when a 
device is talking, it doesn't continue to do so 
past the marker placed on the tape by the 
CLOSE # —1 instruction which terminated a 
prior writing operation. 

PRINT# 

This PRINTs information to device number 
N when the instruction takes the form 
PRINT#N,X$, where data for the string is 
obtained with an INPUT instruction. N is — 1 
for a tape recorder and — 2 for a printer. 

CLOSE # 

This keyword closes communication to the 
device specified. It takes the form CLOSE # N 
where the value of N is usually — 1 . 
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If you're keen on adventure games, 
but frustrated by the limitations of 
your machine's memory, how about 
a program to fit the same amount of 
text into a lot less space? 

The main problem with writing adventure 
games seems to be that there's never enough 
space for your latest masterpiece. Short of 
buying a new machine or a memory expansion 
there may seem little you can do except pull in 
the horizons of your adventure world, or 
simplify the program. 

The only other way of easing the pressure 
on your straining memory locations is to try 
to find a way of making the program occupy 
less space. The usual methods for shortening 
programs, such as those on page 333, will not 
have too much effect, because most of the 
program is text. What you need, then, is some 
method of making text occupy less space. 

Text is normally stored in computers as 
ASCII code— see pages 314 to 320. Using 
ASCII code will make each character occupy 
eight bits — one byte — of memory space. 

If each character could be squeezed into 
less than eight bits, memory space would be 
saved. There are several possible routes open 
to you, each w r ith advantages and drawbacks. 

Probably the easiest way to compress text is 
to use only part of the ASCII coding. If you 
will be satisfied with a limited range of 
characters — upper case only, plus numbers 
and some punctuation — it's very easy to store 
each character in six bits. 

Choosing a range of ASCII characters 
from 20 to 5F hex, for example, will give a fair 
range of characters for use in the game. If 20 
hex is subtracted from each of the codes, the 
range will be reduced to to 3 F hex — which 
can be stored in six bits. 

Using this kind of coding will enable you to 
reduce your memory requirements by a 
quarter — you'll be able to pack four charac- 
ters into the space previously occupied by 
only three. In order to decode the stored 
characters, all that has to be done is to take 
each six bits in turn and add 20 hex to the 
number to turn it back to the original ASCII. 
fi -o The main disadvantage with this kind of 
coding is that you are forced into choosing 



a range of 40h characters before you start 
programming, and you must stick to them— if 
you want a character outside the range, hard 
cheese! It could be that having the output 
in upper case only will be un- 
acceptable to users of 
machines that normally 
output lower case to the 
screen — so you will need 
to make an alternative 
arrangement. Given 
these problems, a better 
alternative is needed. 

One possibility 
approximates to how 
the Chinese language 
operates, assigning a 
unique character, or numeric 
value, to every word. This 
method of coding entails you 
deciding on the full vocabulary 
for your adventure, and assigning 
each word a number. Coding consists of 
comparing each of the words with a list of 
data, then storing each code in memory. 
Decoding consists of doing the reverse. 

This 'Chinese Approach' offers very effi- 
cient use of memory, but needs to be re- 
written for each new adventure. Of course, 
you can start off with a very large vocabulary 
and hope that you've chosen the right words 
for your needs, but that, in itself, is very 
wasteful of memory space. You may find 
yourself using some very large numbers as 
codes, and the list will take ages to scan. 

The best alternative of all would be some 
kind of text compression system which will 
work with any adventure — in fact, on any text 
you wish to feed it. The compressor must 
make as efficient use as possible of the 
available memory, in terms of how it com- 
presses the text and the amount of space the 
compression software itself occupies. 

It's very important that the text compres- 
sor recognizes a full set of upper and lower 
case characters, numbers and punctuation. 

Such a scheme requires a more radical 
approach from those outlined above — but it is 
possible to meet all the conditions, and a 
system of this type is the basis of the program 
which follows. 




THE COMPRESSION SYSTEM 



This text compressor borrows some inform- 
ation from the world of cryptography — the 
study of ciphers and codes. This tells us 
something about the structure of the text 
which is to be the subject of the compressor. 

When code-breaking, it is very useful to 
know about how often certain letters occur in 
written English, as it enables the decoder to 
look for similar patterns in the coded words. 
To this end, cryptographers have laboriously 
plodded through large tracts of English text, 
counting how many times each letter, even 
pairs of letters, or whole words, occur. 

The INPUT text compressor relies on the 
frequency of occurrence of single letters and, 
in certain cases, letter pairs. Binary numbers 
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HOW TEXT IS STORED 



WAYS OF SAVING SPACE 



ASCII CODE AND A 




alone is used. This 

pattern is continued all 

through the coding. For 

each new letter — or other 

character — the machine first checks 

if it is one of the two most common 

letters to follow the previous one. 

Perhaps it's easiest to work through an 

example. You might have a message saying: 



Coded as ASCII, the message will occupy 15 
bytes, for the fifteen characters (including 
spaces). But using the text compressor, it will 
be coded as follows: 



* 


00 


space 


011 


a 


10000 


a 


10000 


space 


011 


P 


110110 


t 


010 


P 


110110 


r 


10100 


e 


010 





010 


a 


10000 


1 


10110 


r 


10100 


1 


10110 


s 


10001 



are given to each of the letters of the 
alphabet — letters which occur often are given 
short, economical binary numbers, and letters 
which are least common are given the longest 
binary numbers. 

One important by-product of using this 
kind of coding is that, if you test the text 
compression software with random, meaning- 
less letters, there will quite possibly be little, 
or no, compression. If, on the other hand, you 
use English, you'll find that the compression 
is quite marked. Interestingly, the com- 
pression with, say, Spanish or German will be 
considerably less, because the patterns of 
occurrence will be quite different, requiring a 
different system of coding. 

In addition to the codes for the letters 



occurring singly, the compressor also con- 
cerns itself with the two most common letters 
which may follow each letter, There is a 
summary of the codes in the table on page 
636. You'll see that, for example, the most 
common letter following the letter T is H, and 
the second most common is I. There are 
special codes for these common following 
letters, again designed for economy. 

When the compressor is encoding text, it 
remembers what the last letter was, and looks 
to see if the next letter is either the first or 
second most common following letter. If the 
letter is one of the common ones, the code at 
the top of the column is used. If the machine 
doesn't find one of the common letters, then 
the ordinary code for the letter occurring 



The message occupies slightly less than nine 
bytes — a compression of just over 40%. 

The codes for each of the available charac- 
ters are in the table on page 636 — notice that 
there are variations between the machines. 



ENTERING THE COMPRESSOR 



The text compressor has been written in 
machine code to speed up the coding and 
decoding of textual material. 

The listing will be given as both hexadeci- 
mal and as assembly language. In this part of 
Games Programming, there is the assembly 
language listing for the coding part of the 
program. The decode part of the assembly 
listing will follow, along with the hexadecimal 
listing for the complete program. 

You'll need a commercial assembler to use 
with the assembly listing or wait for the 
machine code listing. If you are following the 



Hill 
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ability easily to find any typing mistakes you 
might make. 

Enter the source code this week, but don't 
assemble — just SAVE it on tape until you have 
the complete listing. 





ORG 


64600 


ESTART 


LD 


HL/11 




LD 


{MARRY+1 




RET 




ECODES 


PUSH 


IX 




PUSH 


IY 




CALL 


ESETUP 


MARRY 


LD 


BC,#FFFF 




LD 


(IY + 8),C 




LD 


(IY + 9),B 




PUSH 


IY 




ADD 


IY,BC 




630 



machine code strand, the assembler published 
earlier in INPUT will be too slow to assemble 
such a large program. 

Without a commercial assembler, you will 
need to enter the short BASIC program given 
for your machine. RUN the program and enter 
all the hex — the program will POKE the hex 
into the correct memory locations. But more 
about that next time. 



The text compressor was written using the 
Hisoft Devpac assembler, so you may find 
that your assembler won't recognise some of 
the following listing. To use another as- 
sembler, check that it will allow you to 
evaluate arithmetic expressions — if your as- 
sembler will not, it's probably easiest to enter 
the hex listing which follows later in INPUT. 
Other variations between assemblers in- 
clude using h following a figure to designate 



hexadecimal 
numbers, instead 
of the # symbol 
used here. The Hisoft 
Devpac allows you 
to use binary numbers — 
those preceded by% — whilst 
in others you'll have to evaluate 
the numbers yourself, because the assembler 
doesn't understand binary. EQU isn't sup- 
ported by some assemblers, so try omitting 
that part entirely — just have a line containing 
the label and nothing else. Finally, some 
assemblers recognise a non-standard form of 
ADD— try replacing ADD A,8 with ADD 8, for 
example. 

If you aren't sure how to convert the listing 
so that it's compatible with your assembler, or 
it seems a great deal of trouble to do the 
conversion, you'd probably be better off 
using the hexadecimal listing, sacrificing the 



ECLOOP 



LD 


C,(HL) 


INC 


HL 


LD 


B,(HL) 


PUSH 


HL 


INC 


HL 


ADD 


HL,BC 


LD 


(ECTEST + 1},HL 


LD 


A,7 


LD 


(BITCNT + 1),A 


LD 


HL,CSP 


LD 


(PREFCD + 2),HL 


POP 


HL 


INC 


HL 



nun 
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PUSH 


HL 




JR 


NZ,LONG 




JR 


CDONE 






LD 


A,(HL) 




LD 


A,%010*32 




ADD 


A,8 






AND 


A 




JR 


TOP 




INC 


IY 




ECTEST 


LD 


BC,#FFFF 


SPACEE 


LD 


A,%011 '32 


DONE 


LD 


(BITCNT + 1),A 






SBC 


HL,BC 




DEC 


E 




LD 


A,0 






JR 


Z,ECLEND 




JR 


TOP 




RET 








CALL 


ENCODE 


LONG 


DEC 


E 


CODE 


EQU 


$ 






ADD 


A,0 




DEC 


E 


CSP 


DEFB 


"□" 






JR 


Z,ECLOOP 




DEC 


E 


CA 


DEFB 


"A" 




ECLEND 


POP 


HL 




DEC 


E 


CS 


DEFB 


"S" 






LD 


A,0 




DEC 


E 


CO 


DEFB 


"0" 






CALL 


ENCODE 




ADD 


A,255 + CODE- CLAST 


CT 


DEFB 


ityi* 






INC 


IY 




CP 


255 + CEIGHT — CLAST 


CR 


DEFB 


"R" 






PUSH 


IY 




JR 


NCJOP 


CI 


DEFB 


urn 






POP 


HL 




INC 


E 


CL 


DEFB 


4t| ■>> 






POP 


BC 




SLA 


A 


CE 


DEFB 


urn 






LD 


A,(BITCNT + 1) 




ADD 


A,CLAST-CEIGHT + 1 




DEFB 


"C" 






ADD 


A,249 




CP 


255 + CSEVEN- CLAST 


CSIX 


EQU 


$ 






SBC 


HL,BC 






+ CSEVEN-CEIGHT 


CUP 


DEFB 


"!" 






LD 


(MARRY + 1),HL 




JR 


NCJOP 


CAR 


DEFB 


a jj 






POP 


IY 




INC 


E 


cu 


DEFB 


"U" 






POP 


IX 




SLA 


A 




DEFB 


"M" 






RET 






ADD 


A.CLAST- CSEVEN 


Cp 


DEFB 


ttnft 




ENCODE 


LD 


B.CLAST-CODE + 1 






+ CEIGHT-CSEVEN + 1 




DEFB 


"W" 






CP 


"@" 




CP 


255 + CSIX — CSEVEN 




DEFB 


ayys 






JR 


CLAKE 






+ CSIX- CSEVEN + CS1X 


CN 


DEFB 


"N" 






XOR 


#20 






-CEIGHT + CSIX 




DEFB 


"B" 




LAKE 


LD 


C,A 






-CLAST 




DEFB 


"G" 






LD 


HL,CLAST 




JR 


NCJOP 


CSEVEN 


EQU 


$ 




TRYC 


SUB 


(HL) 




INC 


E 


CD 


DEFB 


"D" 






JR 


Z,MATCH 




SLA 


A 


CF 


DEFB 


ttrji 






CP 


#20 




ADD 


A,CLAST-CSIX + 




DEFB 


"V" 






JR 


NZ,NOUPP 






CEIGHT-CSIX + 


CH 


DEFB 


"H" 






LD 


A,"T"+#20 






CSEVEN -CSIX + 


CEIGHT 


EQU 


$ 




REDO 


PUSH 


HL 






CSEVEN -CSIX + 1 




DEFB 


"K" 






PUSH 


BC 


TOP 


LD 


C,A 




DEFB 


"Q" 






CALL 


ENCODE 




LD 


A,(HL) 


CX 


DEFB 


"X" 






POP 


BC 




CP 


tt + jj 




DEFB 


"J" 






POP 


HL 




JR 


ZJOPOUT 




DEFB 


"7" 






JR 


MATCH 




LD 


A,(IX) 




DEFB 


tcrsi 




NOUPP 


CP 


#E0 




CP 


U •)•) 


CPO 


DEFB 


it\ i> 






JR 


NZ,NOLOW 




JR 


NZ,HOLD 


CLAST 


DEFB 


ill?? 






LD 


A,"_"+#20 




LD 


HL,CPUN 


CPUN 


EQU 


$ 






JR 


REDO 


HOLD 


LD 


(PREFCD + 2),HL 


FIRST 


DEFB 


CUP- CODE 




NOLOW 


LD 


A,C 


TOPOUT 


LD 


A,C 




DEFB 


CN-CODE 






DEC 


HL 


TOPACT 


LD 


BC,(BITCNT+1) 




DEFB 


CT-CODE 




" 


DJNZ 


TRYC 




LD 


B,C 




DEFB 


CN-CODE 






RET 






INC 


B 




DEFB 


CH-CODE 




MATCH 


LD 


A 3 B 


JAR 


RLCA 






DEFB 


CE-CODE 




PREFCD 


LD 


IX 5 #FFFF 




DJNZ 


JAR 




DEFB 


CN-CODE 




BITCNT 


LD 


E,#FF 




LD 


IX, LO 




DEFB 


CE-CODE 






DEC 


E 




ADD 


IX,BC 




DEFB 


CR-CODE 






DEC 


E 




LD 


B,A 




DEFB 


CH-CODE 






DEC 


A 




AND 


(IX+1) 




DEFB 


CS-CODE 






JR 


Z,SPACEE 




OR 


(IY) 




DEFB 


CL-CODE 






CP 


(IX + FIRST -CODE) 




LD 


(IY),A 




DEFB 


CN-CODE 






JR 


NZ,NOTFIR 




LD 


A,B 




DEFB 


CE-CODE 






LD 


A,0 




AND 


(IX+UP-LO + 1) 




DEFB 


CO -CODE 






JR 


TOP 




LD 


(IY + 1),A 




DEFB 


CA-CODE 




NOTFIR 


DEC 


E 




LD 


A,E 




DEFB 


CA-CODE 


631 




CP 


(IX + SECOND-CODE) 




CP 


%1 0000000 




DEFB 


CD -CODE 



20 
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DEFB 


CE-CODE 


DEFB 


CE-CODE 


DEFB 


CE-CODE 


DEFB 


CT-CODE 


DEFB 


CE-CODE 


DEFB 


CE-CODE 


DEFB 


CE-CODE 


DEFB 


CU-CODE 


DEFB 


Cp-CODE 


DEFB 


CU-CODE 


DEFB 


CE-CODE 


DEFB 


CAR-CODE 


DEFB 


CAR -CODE 


DEFB 


CSP-CODE 


DEFB 


CAR -CODE 


SECOND DEFB 


CT-CODE 


DEFB 


CT-CODE 


DEFB 


CE-CODE 


DEFB 


CF-CODE 


DEFB 


CI-CODE 


DEFB 


CO -CODE 


DEFB 


CT-CODE 


DEFB 


CI-CODE 


DEFB 


CD -CODE 


DEFB 


CO -CODE 


DEFB 


CT-CODE 


DEFB 


CN-CODE 


DEFB 


CS-CODE 


DEFB 


CA-CODE 


DEFB 


CE-CODE 


DEFB 


CH-CODE 


DEFB 


CO -CODE 


DEFB 


CT-CODE 


DEFB 


CL-CODE 


DEFB 


CH-CODE 


DEFB 


CI-CODE 


DEFB 


CO -CODE 


DEFB 


CI-CODE 


DEFB 


CA-CODE 


DEFB 


CI-CODE 


DEFB 


CX-CODE 


DEFB 


CT-CODE 


DEFB 


CO -CODE 


DEFB 


CI-CODE 


DEFB 


CUP-CODE 


DEFB 


CPO-CODE 


DEFB 


CAR -CODE 


DEFB 


CUP -CODE 


LO DEFB 





DEFB 


%1 


DEFB 


%11 


DEFB 


56111 


DEFB 


%1111 


DEFB 


%11111 


DEFB 


%111111 


DEFB 


%1111111 


UP DEFB 


%11111111 


DEFB 


%11111110 


DEFB 


%11111100 


DEFB 


%1 1 1 1 1 000 


DEFB 


%1 11 10000 





DEFB 

DEFB 
DEFB 
DEFB 

ESETUP LD 
LD 
LD 

EREPEAT LD 
CP 
JR 
CP 
JR 
OP 
JR 
CP 
R 

CP 

JR 

JR 

LD 

ADD 

JR 

INC 

LD 

CP 

JR 

LD 

ADD 

JR 

CP 

JR 

PUSH 
DEC 
JR 

VSA INC 

LD 

INC 

LD 

INC 

ADD 

LD 

JR 

CP 

JR 

PUSH 
POP 
DEC 
JR 
JR 

FINDEX POP 
INC 
RET 



VFOR 



VMN 



VN 



VS 



VNA 



%1 11 00000 

%1 1000000 

%1 0000000 



HL,(23627) 

D,0 

C,2 

A,(HL) 

#E0 

NC,VFOR 

#C0 

NC,VSA 

#A0 

NC,VMN 

#80 

NC,VNA 

#60 

NC,VN 

VS 

E,19 

HL,DE 

EREPEAT 

HL 

A,(HL) 

#E0 

C,VMN 

E,6 

HL,DE 

EREPEAT 

NZ,VSA 

HL 

C 

Z,FINDEX 

HL 

MHL) 

HL 

D,(HL) 

HL 

HL,DE 

D,0 

EREPEAT 

"z"+#20 

NZ,VSA 

HL 

IY 

C 

Z,FINDEX 

VSA 

HL 

HL 








SEE 



The assembly listing that follows is for 
the Commodore 64, but if you own an 
expanded Vic 20 you can easily adapt it 
so that it will run in your machine. In the 
assembly listing, the parts to change 
have been printed in bold type, so look in 
the table for the equivalent. 



Commodore 64 

+ 8K 
CD 3D 

CE 3E 

CF 3F 

Vic 20 owners with 8, 16 or 24K ex- 
pansions must also change two pointers. 
POKE the two memory locations first. 



Vic 20 expansion 
+ 16K +24K + 32K 
5D 7D BD 
5E 7E BE 
5F 7F BF 



Vic20 + 8K 
Vic20 + 16K 

Vic20 + 24K 



POKE 52,61 POKE 56,61 
POKE 52,93 POKE 56,93 
POKE 52,125 POKE 52,125 



The Commodore 64 program starts at CD14, 
so if you have a Vic 20 you'll have to change 
the CD to the equivalent for your machine. 
The assembly listing is wrongly ordered. 
It should start at LDX #$1F, 20 lines 
from the bottom of column 1, page 633. 
Omit the final PHA. Then enter the lines 
from the beginning down to RTS. 
Don't assemble the program until you have 
the complete listing, but just SAVE the source 
code on tape — remember, the second half of 
the listing is still to come. You will need to tell 



the assembler the start address for 


Commodore 64 


CD14 


Vic20 + 8K 


3D14 


Vic20 + 16K 


5014 


Vic20 + 24K 


7D14 


Vic20 + 32K 


BD14 


PHA 


LDA 


$2F 


TYA 


STA 


$61 


PHA 


LDA 


$30 


LDY #$08 


STA 


$62 


STY $CE1A 


LDY 


#$00 


LDY #$00 


LDA 


($61),Y 


STY $CE13 


CMP 


#$DA 


LDA ($2D),Y 


BNE 


$CE0A 


I NY 


INY 




CMP #$5A 


LDA 


($61),Y 


BNE $CDE0 


CMP 


#$80 


LDA ($2D),Y 


BEQ 


SCE12 


CMP #$80 


LDY 


#$02 


BEQ $CDE6 


CLC 




TYA 


JSR 


$CE6B 


ADC #$06 


BCC 


SCDFB 


TAY 


LDA 


#$FF 


BNE $CDD3 


LDY 


#$08 


INY 


STA 


($61),Y 


STY $CE2F 


DEY 




PLA 


LDA 


#$FF 


TAY 


STA 


($61),Y 


PLA 


SEC 




RTS 


JSR 


$CE6B 


PHA 


LDA 


#$07 


TXA 


STA 


SCD9S 


PHA 


LDA 


#$00 


TYA 


STA 


$CD42 


PHA 


STA 


$CE40 




20 lGAM£SPROGRAMMm[ 20 



II 



LDY #$FF 

LDA ($2D),Y 

STA $CE42 

INY 

LDA ($2D),Y 

STA $65 

INY 

LDA ($2D),Y 

STA $66 

LDY #$FF 

CPY #$FF 

BEQ $CE4F 

LDA ($65),Y 

JSR $CD14 

INC $CE40 

BNE $CE3F 

JSR $CD14 

LDA #$06 

CMP $CD99 

LDA $61 

SBC $63 

STA $CE1A 

LDA $62 

SBC $64 

STA $CE13 

PLA 

TAY 

PLA 

TAX 

PLA 

RTS 

LDA $61 

STA $63 

ADC ($61),Y 

STA $61 

INY 

LDA $62 

STA $64 

ADC ($63),Y 

STA $62 

RTS 

LDX #$1F 

PHA 

SEC 

SBC $CE7D,X 

BEQ $CD3F 

CMP #$80 

BEQ $CD25 

CMP #$20 

BNE $CD30 

TXA 

PHA 

LDA #$5E 

JSR $CD14 

PLA 

TAX 

BPL $CD3F 

CMP #$E0 

BNE $CD3A 

TXA 

PHA 



LDA 

BNE 

PLA 

DEX 

BPL 

RTS 

PLA 

TXA 

LDY 

CMP 

BEQ 

STA 

LDX 

DEX 

DEX 

CMP 

BNE 

LDA 

BEQ 

DEX 

CMP 

BNE 

LDA 

BNE 

CMP 

BPL 

LDA 

BPL 

DEX 

DEX 

DEX 

DEX 

DEX 

ADC 

CMP 

BPL 

I NX 

ASL 

ADC 

CMP 

BPL 

I NX 

ASL 

ADC 

CMP 

BPL 

INX 

ASL 

ADC 

CPY 

BNE 

LDY 

STY 

STX 

LDX 

BNE 

ROR 

ROR 

ROR 

ROR 

ROR 



#$5F 
$CD29 



$CD16 



#$FF 
#$0A 
$CD4A 
$CD42 
$CD99 



$CE9D,Y 
$CD58 
#$00 
$CD89 

$CEBE,Y 

$CD62 

#$40 

$CD89 

#$01 

$CD6A 

#$60 

$CD89 



#$DF 
#$F8 
$CD89 

A 

#$07 
#$F0 
$CD89 

A 

#$0F 
#$C8 
$CD89 

A 

#$37 

#$0B 

$CD92 

#$20 

$CD42 

$CDB5 

$CD99 

$CD9A 

A 

A 

A 

A 

A 



ROR 


A 


STA 


($61),Y 


ROR 


A 


LDA 


= $FF 


ROR 


A 


BPL 


$CDC0 


PHA 




EOR 


#$F8 


ROL 


A 


INC 


$61 


AND 


$CEE0,X 


BNE 


$CDC0 


LDY 


#$00 


INC 


$62 


ORA 


($61),Y 


STA 


$CD99 


STA 


($61),Y 


LDA 


#$00 


INY 




RTS 




PLA 




PHA 




AND 


$CEE8,X 







The BBC and Electron both have their own 
built-in assemblers, so there will be no hex 
listing published next week. The first part of 
the text compressor follows. Type it in and 
SAVE it, but don't RUN— assemble— it yet 
because the second half will follow next time. 

10MODE6 

20HIMEM = &6000-&200 

30MC = HIMEM 

40P% = MC 

50 ZCOD = 1 1 2:ZPCT = 1 1 4:ZDOL = 1 1 6: 

ZBOX = 118:ZUSE = 116 
60CUP = P% + 10:CAR = P% + 11: 

CLAST= P% + 31 :FIRST= P% + 32: 

SECOND = P% + 65: LO = P% + 98: 

UP = P% + 106:CPUN = FIRST 
70 CODE = P%:$P% = "DASOTRILEC": 

P%=P% + 10 
80 CSIX=P%:?P% = &5E:P%?1 =&5F: 

$(P% + 2) = "UMPWYNBG": 

p%=P% + 10 
90 CSEVEN = P%:$P% = [ 'DFVH": 

P%=P% + 4 
100 CEIGHT = P%:$P% = "KOXJZ[\]" 
110 P%= FIRST 
120 FOR T = 1 TO 2 
130 READ A$ 

140 FOR P = 1 TO LEN(A$) STEP 2 
1 50 V = EVAL("&" + MID$(A$,P,2)) 
160 IF V< 16 THEN PRINT"0"; 
170 PRINT; ~V; 
180?P%=V:P% = P% + 1 
190 NEXT 
200 NEXT 

210 FOR T=0 TO 3 STEP 3 
220P% = MC + &74 
230 [OPT T 

240 .SETUPDLDA #&04: LDX #&F4 
250 .NXTZDSTX ZUSE: STAZUSE + 1 
260 LDY #02: LDA (ZUSE),Y 
270 CMP #ASC("$"):BNENTDOL 
280 STX ZBOX: LDA ZUSE + 1 
290STAZBOX + 1:BNEDON 
300.NTDOLDCMP #ASC("%") 
310 BNE DON: STX ZPCT 
320LDAZUSE + 1:STAZPCT+1 



330 .DON □ LDY #0: LDA (ZUSE),Y 
340 TAX: INY: LDA {ZUSE),Y 
350 BNE NXTZ:.OUTZDRTS 
360.ESETUPDLDY #12 
370 STY ESTRING + 1 
380 LDY #0: STY HtOFF + 1 
390 JMP SETUP 

400.ESTRINGDLDA #&FF:PHA 
410 ADC ZPCT: STA ZCOD 
420.HIOFFDLDA #&FF: PHA 
430 ADC ZPCT+1: STA ZCOD + 1 
440 LDY #7: STY JAR + 1: LDA #0 
450STA PREFCD + 1 
460 STA EASTER + 1 
470 LDA (ZBOX),Y 
480STALCNPT+1: LDY #5 
490LDA(ZBOX},Y:STAZDOL + 1 
500 DEY: LDA (ZBOX),Y 
510STAZDOL 
520. EASTER □ LDY #&FF 
530.LCNPTDCPY #&FF 
540 BEQ EEXIT: LDA (ZDOL),Y 
550 JSR ENCODE: INC EASTER + 1 
560 BNE EASTER 
570 .EEXITDJSR ENCODE 
580 LDA JAR + 1: CMP #7 
590 JSR ZINC: SEC: LDA ZCOD 
600 SBC ZPCT: STA ESTRING + 1 
61 LDA ZCOD + 1 : SBC ZPCT + 1 
620STAHIOFF + 1:PLA:TAX:PLA 
630 RTS 

640.ENCODEDCMP #ASC("@'') 
650 BMI ENC2: EOR #&20 
660 .ENC2DLDX #CLAST-CODE 
670.TRYCDPHA:SEC:SBCCODE,X 
680 BEQ MATCH: CMP #&20 
690 BNE NTUPP: TXA: PHA 
700 LDA #&5E: .REDODJSR ENC2 
710 PLA: TAX: BPL MATCH 
720.NTUPPDCMP #&E0 
730 BNE NTLOW: TXA: PHA 
740 LDA #&5F: BNE REDO 
750 .NTLOWDPLA: DEX: BPL TRYC 
760 RTS: .MATCH □ PLA: TXA 
770.PREFCDDLDY #&FF 
780 CMP # CUP-CODE 
790 BEQ BITCNT: STA PREFCD + 1 
800 .BITCNTDLDX JAR + 1: DEX 
810 DEX: CMP FIRST,Y 
820 BNE NTFIR: LDA #0: BEQTP 
830.NTFIRDDEX:CMPSECOND,Y 
840 BNE NTSEC: LDA #&40 
850BNETP:.NTSECDCMP #1 
860 BPL LONG: LDA #&60: BPLTP 
870.LONGDDEX:DEX:DEX:DEX 
880 DEX: ADC #254 + CODE -CLAST 
890 CMP # 255 + CEIGHT- CLAST 
900 BPLTP: INX: ASL A 
910 ADC # CLAST -CEIGHT 
920 CMP #255 + CSEVEN- CLAST + 
CSEVEN- CEIGHT 



633 



Illllllll 



20 



«S 



i,!'l'\i' 7 



20 



mm 



930 BPL TP: INX: ASL A 

940 ADC #CLAST-CSEVEN + 

CEIGHT-CSEVEN 
950 CMP #255 + CSIX"4-2* 

CSEVEN - CEIGHT- CLAST 
960 BPL TP: INX: ASL A 
970 ADC #CtAST-CSIX'4 + 2* 

CSEVEN + CEIGHT 
980.TPnCPY # CAR -CODE 
990 BNE TPACT 
1000 LDY #CPUN-CODE 
1010 STY PREFCD + 1 
1020. TPACT DSTXLADA + 1 
1030 LDX JAR + 1 
1 040 . JAR D BNE JAR + 2: ROR A 
1050 ROR A: ROR A: ROR A 
1060 ROR A: ROR A: ROR A 
1070RORA:PHA:ROLA 
1080 AND LO + 1,X: LDY #0 
1090ORA(ZCOD),Y 
1100 STA (ZCOD),Y: INY: PLA 
1110 AND UP+1,X: STA(ZCOD),Y 
1120.LADADLDA #&FF 
1130 .ZINCDBPL DONE 
1140 EOR #&F8: INC ZCOD 
1160 BNE DONE: INCZCOD + 1 
1170.DONEDSTAJAR + 1:LDA #0: RTS 
1180]:NEXT 
1190 *SAVE"ENCODE" 5E00D5FC0 



lMT 



The Dragon and Tandy versions of the coder 
are almost identical, but for three small 
alterations. The things to alter are printed in 
bold type, and if you own a Tandy you should 
change them as follows: change 8B 30 to B3 ED 
and change 8C 37 to B4 F4. The program was 
written using the DASM assembler. If you 
have a different one, you may have to change 
the @ signs which denote labels. Apostrophes 
are used instead of exclamation marks on the 
Tandy assembler to denote ASCII code. 

The assembly listing should be entered, 
assembled and then SAVEd to tape. The start 
address is 32380: 

@C0DE EQU ' 
@CSP FCB $20 
@CA FCB !A 
@CS FCB !S 
©CO FCB !0 
@CT FCB IT 
@CR FCB !R 
@CI FCB II 
@CL FCB !L 
@CE FCB !E 
FCB!C 
©CSIX EQU ' 
@CUP FCB ! a 
©CAR FCB $5F 
©CU FCB !U 



FCB!M 

@CP FCB !P 
FCB!W 
FCB!Y 

OCN FCB !N 
FCB!B 
FCBIG 

©CSEVEN EQU * 

@CD FCB ID 

@CF FCB IF 
FCB IV 

@CH FCB !H 

@CEIGHT EQU * 
FCB IK 
FCBIQ 

@CX FCB IX 
FCBIJ 
FCBIZ 
FCB $5B 

@CP0 FCB $5C 

@CLAST FCB $5D 

@CPUN EQU ' 

©FIRST FCB @CUP-@C0DE 
FCB ©CN- ©CODE 
FCB ©CT- ©CODE 
FCB ©CN- ©CODE 
FCB @CH -©CODE 
FCB ©CE- ©CODE 
FCB@CN-@CODE 
FCB @CE- ©CODE 
FCB @CR -©CODE 
FCB @CH -©CODE 
FCB ©CS- ©CODE 
FCB@CL-@CODE 
FCB @CN -©CODE 
FCB ©CE- ©CODE 
FCB ©CO -©CODE 
FCB @CA- ©CODE 
FCB @CA- ©CODE 
FCB ©CD -©CODE 
FCB@CE-@CODE 
FCB@CE-@CODE 
FCB @CE- ©CODE 
FCB ©CT- ©CODE 
FCB ©CE- ©CODE 
FCB ©CE- ©CODE 
FCB ©CE- ©CODE 
FCB @CU- ©CODE 
FCB@CP-@CODE 
FCB ©CU- ©CODE 
FCB ©CE- ©CODE 
FCB@CAR-@CODE 
FCB ©CAR -©CODE 
FCB ©CSP- ©CODE 
FCB ©CAR -©CODE 

©SECOND FCB @CT-@CODE 
FCB @CT-@C0DE 
FCB@CE-@CODE 
FCB@CF-@CODE 
FCB ©CI -©CODE 
FCB@C0-@C0DE 



FCB@CT-@C0DE 
FCB ©CI -©CODE 
FCB@CD-@CODE 
FCB ©CO -©CODE 
FCB @CT-@C0DE 
FCB ©CN- ©CODE 
FCB@CS-@CODE 
FCB ©CA- ©CODE 
FCB @CE- ©CODE 
FCB ©CE- ©CODE 
FCB ©CH- ©CODE 
FCB ©CO -©CODE 
FCB@CT-@CODE 
FCB @CL-@C0DE 
FCB @CH -©CODE 
FCB ©CI -©CODE 
FCB ©CO -©CODE 
FCB ©CI -©CODE 
FCB ©CA- ©CODE 
FCB ©CI -©CODE 
FCB@CX-@CODE 
FCB@CT-@CODE 
FCB ©CO -©CODE 
FCB ©CI -©CODE 
FCB ©CUP -©CODE 
FCB ©CPO- ©CODE 
FCB ©CAR -©CODE 
FCB@CUP-@CODE 

BLO FCB 
FCB $1 
FCB $3 
FCB $7 
FCB $F 
FCB $1 F 
FCB $3F 
FCB $7F 

gUP FCB $FF 
FCB $FE 
FCB $FC 
FCB $F8 
FCB $F0 
FCB $E0 
FCB $C0 
FCB $80 
FCB0 

5USR9 PSHS D 
JSR 38B30 
STD@ZPTR + 1 
CLR ©MARRY + 1 
CLR@MARRY + 2 
PULSD 
RTS 

3USR8 PSHS A,B,X,Y,U 
LDA #7 
STA ©JAR + 1 
LDD #@CSP 
STD ©PREFCD + 1 
JSR $8B30 
TFR D,X 
PSHS X 

JMARRYLDD #$ABCD 



? 




LEAY D,X 


CMPA #7 


LDA # ! a 




JSR $8C37 


BEQ ©PULSE 


©REDO PSHS U 




@ZPTR LDU #$ABCD 


LDA,Y + 


JSR ©ENCODE 




PULUB 


©PULSE PULS D 


PULSU 




PULUA 


COMA 


BRA ©MATCH 




ADDD,U 


COMB 


©NOUPPCMPA #$E0 




LDU,U 


ADDD #1 


BNE ©NOLOW 




STD@CAMP + 2 


LEAX D,Y 


LDA #$5F 




BRA ©CAMP 


STX@MARRY + 1 


BRA ©REDO 




©ENCLOP PULU A 


PULS A,B,X,Y,U 


©NOLOW TFR B,A 




PSHSU 


RTS 


CMPU #@CODE-1 




JSR ©ENCODE 


©ENCODE LDU #@CLAST+1 


BGT ©TRYC 




PULSU 


TFR A,B 


RTS 




©CAMPCMPU #$ABCD 


@TRYCSUBA,-U 


©MATCH TFR U,D 




BNE ©ENCLOP 


BEQ ©MATCH 


©PREFCDLDX #$ABCD 




CLRA 


CMPA #$20 


LDA ©JAR + 1 


B35 


JSR ©ENCODE 


BNE@NOUPP 


STA@EXTRA + 2 


UOJ 





llllllll !■■■■ 




3 












SUBA #2 








ASLB RORB 


SUBB #@CODE (see note overleaf) 




ADDB #@CLAST-@CEIGHT+1 RORB 


BEG @BITCNT 








CMPB #255 + @CSEVEN- RORB 


CMPX #@CAR 








@CLAST + @CSEVEN-@CEIGHT RORB 


BNE @STEW 








BPL@T0P RORB 


LDU #@CPUN 








INCA PSHS B 


@STEWSTU@PREFCD + 1 






ASLB ROLB 


@BITCNT CMPB ©FIRST 


-@C0DE,X 






ADDB #@CLAST-@CSEVEN+ ANDB@LO + 1,X 


BNE@NOTFIR 








@CEIGHT-@CSEVEN + 1 ORB ,Y 


LOB #0 








CMPB #255 + @CSlX-@CLAST + STB ,Y 


BRA @T0P 








@CSIX-@CEIGHT + @CS1X- PULS B 


@NOTFIRDECA 








@CSEVEN + @CSIX-@CSEVEN ANDB@UP + 1,X 


CMPB ©SECOND - 


@C0DE,X 






BPL@T0P STB1.Y 


BNE@L0NG 








INCA CMPA #$00 


LDB #$40 








ASLB BGE ©DONE 


BRA @TOP 








ADDB #@CLAST-@CSIX+ ADDA #8 


@SPACEELDB #$60 








@CEIGHT-@CSIX + @CSEVEN- LDB,Y + 


DECA 








@CSIX + @CSEVEN-@CS1X + 1 @DONE STA @JAR + 1 


BRA @T0P 






@T0P EQU " RTS 


@LONGSUBA #5 






@EXTRALDX #$00FF END 


SUBB #@CLAST- 


-@C0DE + 1 






LSRB 


CMPB #255 + @CEIGHT-@CLAST 


@JAR BRA $F + ' Note: Most assemblers will show an error at 


BPL @TOP 








RORB SUBB#@C0DE. Don't worry, the program 




INCA 








RORB should run. If not, replace @C0 D E with $86 






I CODE VALUES 


If In 
punctua- 


Most 
popular 




If in Most 
punctua- popular 






If in 






Main upper 


tion 


1st 


2nd 




Main tion 1st 2nd 






character case 


code 


(00) 


(010) 


Coded 


character code (00) (010) Coded 






.space @ 


message 
ends 


T 


t 


011 


Spectrum 

{ ; «- f 11111101 






a A 


I 


n 


t 


10000 


| < ■#- | 11111110 






b B 


jj 


e 


1 


111010 


} = space «- llllllll 






c C 
d D 
e E 
f F 
g G 


# 
$ 
% 
& 


h 

e 
r 

t 

e 




i 
d 



h 


11000 

1111000 

10111 

1111001 

111011 


Commodore/Vic 

EH ; «- T 1HU101 
B < «- B 1111H10 
Q] = space <- llllllll 






h H 


( 


e 


a 


1111011 


Acorn 






i I 


) 


n 


t 


10101 


{ ; *- t 1111H01 






J J 


* 


u 





11111011 


| < 4- | 11111110 






k K 


+ 


e 


i 


11111000 


} = space <- llllllll 






1 L 
m M 

n N 
o 
P P 


/ 



e 
e 
d 

n 




i 
a 
t 
f 
e 


10110 

110101 

111001 

10010 
110110 


Dragon/Tandy 

; «- f 11111101 

< «- 11111110 

space <- llllllll 






q Q 


1 


u 


X 


11111001 


The table above is really intended for the characters in punctu- 






r R 


2 


e 





10100 


ation code, the main characters are unlikely to be used. 






s S 


3 


t 


e 


10001 


In the main table, for the Dragon and Tandy, you should read 






t T 


4 


h 


i 


10011 


upper case letters in the 'main character' column and reversed 






u U 


5 


n 


s 


110100 


characters in the 'upper case' column. The reason for this is that 






v V 


6 


e 


i 


1111010 


upper case characters are the most commonly used. 






w W 


7 


a 


h 


110111 


Where up arrows and left arrows appear in the table, please 






x X 


8 


P 


t 


11111010 


note that these are not keyboard symbols, but are used by the 






y y 


9 


a 





111000 


machine to go into capital or punctuation mode. They will not 






z Z 




e 


i 


11111100 


work at all as keyboard symbols. 
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> 


s 


t 


110010 


Note: when using the text compressor, use only characters 
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*~ 
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,(D 


.(n) 


110011 


from the table, or the text will become corrupted. 

















DISCOVER HOW EASY IT IS TO IMPROVE, 

ALTER AMD REPAIR YOUR HOME, WHEN 

YOU'VE GOT THE KNACK. 

This step-by-step guide gives you the 
confidence to tackle every DIYjob - 
and succeed! 

The Knack is all the DIY skills you've ever wanted 
and will ever need, in one of the most comprehen 
sive series of books ever published on the subject 

Decorating, tiling, carpentry, plumbing, heating 
-you name it and you'll find the techniques of 
each skill clearly explained and fully 
illustrated. 

Thousands of step-by-step colour photo- 
graphs and diagrams will show you 
everything you need to know to get a 
professional finish, at a fraction of the 
cost everytime you DIY. 
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'special introductory offer 

Simply address your envelope (no stamp required) to: 

Marshall Cavendish House, FREEPOST, Hove, 

East Sussex, BIM3 2ZZ. 

YES! I'D LIKE TO TRY VOLUME 1 TO KEEP FREE 
WITH NO COMMITMENT TO BUY ANYTHING. 

Please send me Volume 1 of The Knack for me to keep 
FREE along with Volume 2 on ten day trial. If not satisfied I 
shall return Volume 2 and cancel my order. Or I shall pay 
for Volume 2 and you will then send me the remaining 
Volumes (3-24) on ten day trial. For those I keep I need 
only pay for at the rate of ONE-VOLUME-A-MONTH. 
Each volume costs £5.95 (fully inclusive of postage and 
handling) - except of course Volume 1 which is mine to 
keep FREE in any event. 

Signature (I am over 18) 

Orders not accepted without signature 

Name 



Address 



Post Code 



Tel No STD Code 

Offer applies UK and Northern Ireland only All orders subject to acceptance 



minium 



KB 92 
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TAKE VOLUME 1 

FREE 

AND RECEIVE 
VOLUME 2 ON 
TEN DAY TRIAL 

Simply fill in the Introductory Offer 
form and post today. 

SEND NO MONEY NOW NO STAMP NEEDED 
THIS IS NOT A BOOKCLUB 

HOW THIS OFFER WORKS 

1. Your FREE Volume 1 will be sent to 
you along with Volume 2 on ten day 
trial. If you're not entirely satisfied, 
simply return Volume 2 only and your 
application will be cancelled. 

NOTHING FURTHER WILL BE SENT 
TO YOU. 

2. If you keep Volume 2 you pay just 
£5.95 [inclusive of postage and 
handling). Within a month you'll 
receive the further Volumes |3-24) all 
on ten day trial. 

Even though you have the complete 
series, you only pay for ONE-VOLUME- 
A-MONTH which is just £5,95 (fully 
inclusive). 

THIS IS NOT A BOOK CLUB -there 
is no commitment to buying a 
minimum number of books by 
accepting this FREE OFFER. 
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COMING IN ISSUE 21... 



ULearn how to DETECT THINGS ON 
SCREEN — the basis of many games 
which involve moving graphics 

U Create a complete WIREFRAME 
picture of a SPACE STATION 

QAdd the DECODING routine to your 
MACHINE CODE TEXT COMPRESSOR 

CJGet it down on paper with a guide to 
SETTING UP A PRINTER 

OPlusJor the DRAGON and TANDY, a 
PROGRAM SQUEEZER to save memory 
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ASK YOUR NEWSAGENT FOR INPUT 
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